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AN APOLOGY 



The substance of this memo is to initiate the mrfve LISP user 
into the intricacies! of the system at the Project MAC A.I, Lab. It 
is composed, at this tiioc, of a Progress Report on the development of 
the LISP system and a few appendices but as such should be nearly 
adequate to start out a person who understands the basic ideas of LISP, 
and has understood a minimal part of the LISP 1-5 Programmers manual 
or a maximal part of Clark Welssnan's LISP 1,5 Primer. At some un- 
determined time in the future a comprehensive document will be Issued, 
consisting of an elementary introduction to LISP* a self-primer, the 
core of this document, and numerous reference appendices. The com* 
prehensive guide will then replace A.I. memos numbers 116A, 152, 157, 
the LISP Progress Report, this memo and all informal notes and communica- 
tions . 

In the meantime. In order to inure the current user to the 
shock of an information blackout* and in order to give him a glimmer 
of what it Is that he doesn't know about* the followiug Hat of Appendix 
titles if offered: 

A: The True Meaning of Top-level Global Variables in MACLISP 

B: How to Speak to the LISP Allocator, When Initially 

Allocating the Si2e of Storage Areas 

C; Syntax for Use with STATUS and SSTATU5 

0: All About TRACE and BREAK 

E: The EDIT Feature in LISP 

F: Using GRIND and INDEX 

C: Setting up Displays on the CRT 340 

H: Preparations for Compiling 

I: Coding in LAP 

J: Moby I/O Devices usable in LISP; The VIdissector, the Clock, 

the Calcottp Plotter, A/D and D/A Converters 

K: The PIC-PAC Package for Storing and Using Vidissector Pictures 

L: An Annotated Index of Functions, Facilities and Terns 

Preliminary versions of some of these appendices are attached to the 
back of this nemo, along with a very temporary Appendix X which attempts 
to update those changes which are nisslng or at variance with the main 
body of this aero or with meao 116A. Fj«:cpt for such variances, memo 
116A Is still recommended aa an annotated index of functions and terms. 
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NOTATION 

The following items of notation are observea in the writing 01" 
this reporti 

JIDrt The double-*juote character I" J Is used as the stannard 
aieta-lingulstlc woro or string quoting device. Alas, in several 
instances it is used in the more vulgar sense of indicating a 
non-standaro or insecure meaning imputeo to a worn or pnrase. 
Unfortunately, the ooubl*~quote character is itself part of the ASCII 
alphabet that makes up the LISP input character set (in category (I) 
of the HEAD syntax, see page 25), and in oraer to avoid ambiguity, the 
examples of s-expressions on the succeeoing pages will not utilize it. 
ITEM "LISPI.5PM" is an abbreviation for the LISP 1.5 Programmer's 
Manual, published by the M.I.T. Press. 

ITEM "MACLISP" refers to the PDP/6 implementation of the programming 
language LISP in use at the Artificial Intelligence Group of Project 
MAC. 

ITEM Capital letters of the English alphabet are used as atom 
constituents in sample subexpressions, and small letters are used as 
meta-llngulstic variables whose range must be oeduced from context. 
Thus "(tVAL s)' 1 coula stana for "(EVAL ABC)", or 

"(EVAL (CONS X (LIST ¥)))" ana so on. Sometimes It is clear that the 
ranga of the variable is restricted to atoms, or to lists, but 
occasionally the variable may be a list fragmenti e.g., '•(LIST frag)* 
could be "(LIST A)», or "(LIST A 21 >% or -(LIST X Y (CAB Z>>". 



HEM Many sample programs and functions are given in the ^-language as 
used in LI5PK5PM, ana in some Instances suggestive names are usee lor 
variables assumeo to oe permenantly set to some character object. 
This is for emphasis, since no reference to an input RbAO syntax, or 
to a universal evaluator is necessary for interpretation or the 
meaning of the program. S-expresslons given as examples can only have 
functional meaning, or computational meaning, when the maans of 
application is specified* that is, they induce functions when palreo 
with a universal evaluator such as t*AL. Since various 

implementations dilfer in the action of EvAL, the one aescrioeo in 
LI5P1.5PM vlll be considereo the common denominator; the one employed 
by MACLISP, however, will be the arbiter for interpretation in this 
report. Some examples are best given as s-expresslons because of the 

extendeo role that F-type functions (F&UBR, FcXPfi) play for EVAL, and 
oecause of the unity of function type within the M-language. 
ITEM Normal Input mode for MACLISP Is bast eight, and hence all 
numbers appearing In this report are to be understood as represented 
In base eight. bxceptions* the following constructions indicate base 
ten - page number references, English-described numbers las opposea to 
numeral-describea) , numbers follower oy a decimal-point, numbers 
having non-octal digits, and the phrase "36-bit u when referring to 
machine call capacity. 

HEM Thar* are two print sets accepted for the ASCII alphabet, 
variously calleo "olc ASCII** and "new ASCII". Generally this report 
attempts to use or simulate the "old" alphabet of the Model 35 
teletype, rather than the -new" alphabet ol the Moaei 37. There are 



only a few characters that are really different, t* notable uxu.nplc? 
oelng character number 136 which prints an an up-arrow in the "old 11 
and lis a carat In the "new". 

ITEM Included In the ASCII character set are non-printing characters 
obtaineo by jepressing a printing character while holding down the 
control tceyi if this is done with n H li t for example, the character is 
called control-h ano is denoted by "fH". 



■ 



INTRODUCTION 

MACLISP ia a descendant of the first operational program ever 
written for the bigital Equipment Corporation PuP/6 computer. It was 
an interpreter and minimal LISP system, written ana aeoucgdd in the 
spring of I&64 by the staff at DEC ano members or the Tech model 
Adilroad Club - an organization which along with the M*I*T* stuJent 
radio station rtlBS has supplied a continuing stream of prospective 
programmers to the Artificial Intelligence uroup. Ihis unlikely feat 
was accomplisheo with the alo ol a well-equippeu PUV4 for editing, 
assembling and punching the program on paper tape- At about that time 
a wording POP/6 was delivered to Project MAC, ana the LISP program was 
an aid in testing the new machine. 

Ioeas f ro.n several otner implementations influenced the 

■ 

initial design, notably the CTSS version on the IdV. 7tf94, and tna very 
minimal version for the PDP/J. however) the decision to dispense with 
the a-list in the implementation, a major factor in the space econonmy 
and running speeo of MACLISP, came some time later. An improved 
compiler was written as an adjunct to the system - compilation is done 
"off-line' 1 , and the resulting LAP cooe loaded into the system when 
desired. Although the compilers output is both space-efficient and 
time-saving, it is the central focus of attention today for Improved 
schemes such as "fast arithmetic", in the hope that many reasonable 
computations programmed in LISP may run in times comparable to tneir 
f-OHlHAri counterparts. 

Indeed, because of the prominence of LISP in Artiricial 



Intelligence applications* there is no other higher-level language 

useo in the A* I. Croup, although an impressive array or utility 

systems contribute to tne ease or using botn LISP anu machine 

language* TECO, a text editor with oisplay scope, for creating ana 

servicing paper tape, magnetic tape, and magnetic disc riles I no 

punchea-caro equipment is avallaole); rtiDAS, a machine language 

assembler with superb macro-generating features; DDT, a monitor-like 

system very helpful in debugging tana extended in tne time-sharing 

version to provloe other service functions, such as cinary dumping and 

loading) | ana ITS, the Incompatible Time-sharing System. The original 

style of MACLISP was console oriented - i.e., on-line ana interactive 

- with" READ input and control commands accoptaa from an on-line 

teletype, hlth little modification, the some structure adapted itselt 

wo 11 to the time-sharing framework, namely a job uncier ^ne ITS system 

controlling one of the many teletype-lifce consoles available as remote 

turminals or the HDP/6 (currently than* are four Model 3b teletypes, 

(our General electric remote keyboaras with cnaracter-scope displays, 

one ARfto console, ano three telephone data-sets for automatic 

connection to other Model 35 ana Model 37 teletypes). Initially, when 

the job Is startea, MACLISP requests and accepts cooimanos for 

allocating its memory usage - how much core Is to be used In total, 

how .mien of it is to be useo for full-word space, how much for the 

system push oown stack, and so on. rra.n that time on, only a few 

m 
control characters have an immeoiate command effect* the main running 

of the Job is controlleu by a "top-level* 1 function (see page 13}* 



Refinements and Restrictions of the LISP Interpreter 

There Is no explicit a-list lor EVAL* All varie-ble binaings 
occur as 5P£C1AL values, and cVAL ooes not search an a-list for 
variable binaings v but searches the p-lisi [properly list] ox the 
variaole to be tVALeo, in order to find tha aodress of its ^PcClAL 
value cell. On the whole, this implementation is consicieraoly faster 
running since atom evaluation is quick and not aepencent on tna length 
of the a-list (which increases, of course, with increasing depth of 
function calling). MACLISP, however, cannot dispense with the binding 
ano unbinding of variables, ano a special stack is useo to nolo the 
information for unoindlng after lamboa conversion (also, for unbinding 

after PftOu evaluation). Thus those variaoles whose values are changed 
by lambda or prog binding must oe restored after the evaluation is 
completea. The stack of restoration information is calied The Special 
POL <PDL for push down list) and is a weatc equivalent of the a-ilst in 
other systems. By means incicated below, a program may obtain a 
pointer into the stack area which will serve as an a-list to give as 

an argument to subsequent explicitly called functions! but which will 

• 

no longer have meaning if returned as a value of the function which 
created it. in snort, such an a-list will be useful at deeper levels 
in the computation, but not at higher levels. The problem is, quite 
simply, tnat this weak a-list is only a linear stack and does not have 
the tree-li*e structure necessary in general. Neeoloss to say, there 
is no need for COMMON variables, since the interpreter has access to 
the SPtclAL calls, and there are no APvALS, nor functions CSE1 or 



CScTQ. In order to conserve space, a VALUE property pointing to the 
atoro^s SPfcCIAL cell is not placed on its p-llst until it is lirst 
bound, either through lambda or prog Binding or through use of 5fcT. 

The interpreter admits three conventions Tor passing arguments 

to machine language functions (some systems have many mora - the bolt. 

Beranet & Newman LISP has five or eight depending on now one counts)* 

The name of each defined function carries on its p-llst an indicator 

of vhlch convention is used, pairea with the adaress of tne subroutine 

code. The three types are called 5UBR, FSUBR, and L5UBB- The first 

two should be familiar enough to persons acquainted with LISP 1.5i the 

third may be [loosely] viewed as indicating a function generalized 

along the lines of the function LIST - there are a variable number of 

arguments and EVAL t when working on a form FF whose car is en LSUBR, 

obtains the arguments by successive evaluation of cearCFFl, caddrlFF], 

A The arguments ^re placed on a stack, called the Regular 

PDL f ana the number of arguments is itself also passed along to the 

subroutine. One may [again looselyj view h5UBn's as Indicating 

functions generalized along the lines of the (unction QUOTE - there is 

exactly one argument, and when EVAL is working on a form FF whose car 

Is an FSUBfi, It simply passes along cartFFJ as argument. EXPH / s and 

F£XP3*s may be viowea simply as SUBR's and FSUBR's written in LISP 

code rather than machine code. As in other Implementations, II the 

LAMBDA expression paired with a FEXPR has two lambda variables instead 

of the expected one, then*-,ypon entry to the Junction the second 

variable is bouna to a representation of the current a-list, which may 

subsequently oe given as an argument to EVAL or APPLY. Indeea, a-lliit: 



manipulations are rare among the users of MACLISP ana cVAL and APPLY 
always permit the omission of arguments or lambua variables partainln9 
to a-lists. Thus one generally writes 

(EVAL EXPRESSION) 
rather than 

(EVAL EXPRESSION CUErtdUT-A-LlST) 
ano similarly one usually aeflnes FEXPR's 

(LAMBDA (L) (PRIM (CAR L)>) 
In fact, another important application of LSUBR's is for Suoft 
type routines which have, say, three arguments, the thira of which is 
almost always given some stanaarti value! thus the subroutine way be 
called with two arguments only, the thirc being supplieJ oy defaulti 
yet the third may be supplieo explicitly in the calling program when 
socie non-standard value is aesirea. To obtain the L-typa argument 
convention for an EXPR t no new indicator is used (such as one might 
expect LEXPR), but insteao the lambaa list Is replaced by a non-rilL 

atoji which upon entry is bound to the number of arguments! and in the 
code, the form 

(ARC Hi 
is usee to obtain the n'th argument. 

The MACLISP interpreter has been slightly extenoed in the 
direction of computeo functions. Tne indicator MACRO is recognizee by 
EVAL as follows* when EVAL'ing FF with carlFFJ being atomic artf having 
a MACfic property, the function corresponding to the property is 
applied to rf yieioing FF', ano the whole £VAL cycle begins anew on 
FF'. Functional arguments ano computed function descriptions are 



discovered by £VAL in the following circumstance 

(I) cartft-J is not a lambda^ label, nor funarg expression, 
tk) carli-rl is not an acorn with some appropriate function 
Indicator on its p-llst. 

In such a case, Fr is replscea by FF* = consldveKc^rtrt- JJ; 

cdrlrrj] and **gain the aval cycie begins ana* on H-*. Appanuix d of 

LISP1.5PM shows an implementation which wouia allow only caPS's, 

oUbri's, ana lambda, label una funarg expressions to occur in such 

circumstances. In fact, most systems have not generalized apply to 

accept an F-type function as argument, A somewhat aroitrary cnoice 

has oeon made for this generalization in MACLISP - tne second argument 

to APPLY is passed along oirectly as tne single argument to the r-forai 

function - ana although It has some applications t it has not been used 

extensively ana is still considered open to change. 



Extenaeo Interpretation of Familiar runctions 



Conoitional expression structure is one oi the first Hi? 

concepts tnat one wants to generalize. katner than try to emulate 

AUiOL patterns such as "IF", "THEN 11 , ana "£LSc ( ", tna following were 

additions aiaoe to the interpretation of COND'si 

(I) All COND's will proauce a valuei if the CDKU clauses are 
exhausted with none being selectea, then NIL Is the value to 
be return eo 

(21 COND "pairs" are extended to COND n-tuples> if the first 
member of an n-tuple evaluates to non-U I L t then the 
remainoer are evaluated in order ana the value of the last 
one is the return value. One-tuples are permissible, in 
which case the one value, if non-NlL, is returned. 

GO and RETURN may oe composed to any depth in the scope of a 

PriOGi evaluation of either one is very much like the appearance of an 

error curing an error-set computation* However, it shoulo oe 

considered a mistake to execute a GO or RETURN which is not explicitly 

within the scope of a PROG, for such usage cannot be properly 

compileo. Similarly, it is not possble to "go" to a tag outside the 

immediately dominating PROG. Computed Go's are permittee* if the 

argument in a GO is not explicitly an atom, then it is evaluateo and 

an attempt is maoe to "go" to the result. For example, if X is bound 

to A, then 

(GO X) 

will go to tag X, whereas 

(GO (EVAL (QUOTE X))> 

will go to tag A. 

using tne LSUBft convention, many fan! liar functions of two 



arguments have been extendeo" to operate on a variable number of 
arguments, generally by repeated apHcatlon of the function from loft 
to right! APPEND, 1JC0NC, LfcSSP, GflEAT£3P, MAX, UIN, PLUS, TIAtS, 
QUOTlcJJT, DI^HftENCE, MAPL1ST, MAP, KAPCON, AlAPCAh, rtAPC, MAPCAN, 
dCOLt (see page 16 for explanation of BOOLE). The oraer of arguments 
to the 4AP series of functionals is in conflict with that of LIoP 1.5 
- the first arg Is a function GG of n arguments (n>&) ano the 
remaining n arguments are lists which will oe simultaneously mappeci 
into the arguments of Oa. The lists neea not be of equal length! the 
process stops when the shortest is exhausted. ttAPC, MAPCAtt, and 
MAPCAN are Just like HAP, MAPLIST, and MAPCOiJ respectively except that 
CAR of each successive suollst is taken as argument to the supplied 
function, rather than the subllst directly. 

PA002 is Implemented as an LSUBft with two or more arguments, 
and whose value Is the secono argument! evaluation t of course, still 
follows the regular order. Every lamboa expression is also Implicitly 
what in some other systems is called PhOCN. Applying 

(UMBDA list el e2 . . . en) 
will cause the evaluation of el to en, in order, returning the value 

of en as result. 

■ 

LAST ana MfcMBEfl have been extendeo to provide slightly more 
useful values' 



lastlll • I numi) v nulKcortlJJ * 1 
T * Xast(carll)J] 

Aoabertxi II = C nulKU *- NIL 

equaltxi card]] * 1 
T #■ member Ixi ccrllll] 

The new interpretation of LAST provides a fast way to find tn© eno of 

a list rather than the last element of the list. Similarly, if McMtiER 

is to return a non-NIL value, it will be tnat tail or the original 

list whereat the member was founa* A function MEmQ is implemented 

which is merely MEMBER using an to test rather than an EUUAL test as 

displayed above. Similarly* ASSO Is ASSOC with an cU test (ASSOC uses 

an EQUAL test). 

PR1NI will print out one full 5-expression inot necessarily 

atomic), ano when printing a literal atom whose PNAME contains 

characters which are not syntactically legal for hEAEKing back in, 

PfllNI will print a slash before such Illegal characters. Thus the 

atom with PNAME "A.B" will print out as the four characters -A". */", 

"." , W B"» READ, in turn, recognizes slash as a special character 

that in effect causes the next character to oe treated syntactically 

as an alphabetic character. For example, the string *A/<a//C N would 

be read in a& the literal atom with PNAME «A<B/C"; PRINC is a new 

function which will print out one S-expression, without inserting any 

slasnes before HEAD-illegal characters. PRINI is important when one 

wishes to write 5-expressions out on auxiliiary memory ana read them 

back in at a later timel PRINC is important when one wants to generate 

his own output format, or print a message which is stored as tne PNAME 

of sane atom. 



The function PRIM is defined as 

\(tx J ( prog ft 3 I terprlt ) I prinl txJ I princt space) ; return£x ] 3 J 

The function TRACt is not built into EVAL, but Is encodeo in 
EXPfi form. Ho part of it is normally resident in tne system, out U 
must be read-in from an a ux Hilary file tin the ffme onarlng 
environment, many such extra packages are stored on e disc pack called 
the COXiMON oevlce). A traced function has the function property on 
its p-list temporarily replaced by a standard form EXPR or hbXPR which 
handles the traceing work before actually applying the original 
function. Ihe facility has oeen extended to work with «very function 
(yes, even PRINT, COM3, 5ET0, etc.) except possibly oO and RETUfiii. A 
program switch exists to inhibit direct linxing from complied 
functions, so that even calls from compiled code may be tracea (see 
page 21, STATUS). Provision has also been i&aata for conditional 
tracing tat each call of the traced function, a preoicate will be 
evaluated to determine whether or not to trace that call), ana for 
conditional break-upon-entry ta BREAK calls a reao-eval-print loop 
similar to the normal top leval, out some input, usually sp, is 
raserveu to signal the return from the BticAK and the continuation of 
computation). 

The garbage collector, sometimes called the reclaimer, of 
MACLISP performs a few more functions than that of more standard 
implementations. On the simpler sioe, an internal switch tset by 
typing IT* on the Job console or by calling SSTATUS with an appropriate 
argument - sea page 21 > can cause the garbage collector to print out, 
on each collection, statistics telling why the collection was 



initiatea and how much space is available in each storage orea. 
Arrays ana compiled programs share tha binary program space alloted by 
tne MACLISP allocator, ana while one seldom expects to exhaust his 
memory facilities with "aead" binary programs ( some applications 
create and jestroy arrays with alarming rapidity, fh<* garbage 
collector dynamically hanoles the assignment anti reclamation of space 
for arrays (calling the time sharing core allocator, wnen all else 
falls, to try to extend the Job's memory allotment). Occasionally, 
the living arrays will be relocated ana compactifiea towara the top 
end of BPOftG space, but as yet no facility is availaole for dynamic 
relocation of compiled programs (see chapter on future plans, page 
39). Occasionally, also, tne gabage collector will deciae tnat far 
too much bPOHJ space is sitting iale, and it will attempt to return 
some core memory to the time sharing system, although this feature may 
be disenabled with SSTATUS. 

Although atomic objects read in oy RfcAD are placea in the 
OBLlSr to protect them from inadvertent collection and to insure 
identification of future tokens of the same atom, some applications in 
natural language occasionally get boggea down with a bloatea oblist in 
which not all atoms are of continuing utility, and tne LISP programs 
themselves are not able to decide which atoms should be BEMQB'ea* Ihe 
concept of a Truly Worthless Atom is definea» a TftA is an atom with a 
trivial p-list (only a PNAME property) and which is part of no living 
list structure except the OBLIST. A feature of the garbage collector 
will reclaim any ThA, but such feature may be turned off or on under 
program controls because most applications oo not need it, it is not 



normally on (see page 21 on S^TAIUS). Coaipileu code oirectly accassus 
the J^cUlAL cells of free (or SPECIAL J variables, an„ no provision has 
oeen made for relocating such addresses when useo in clnary program 
space; thus this feature* chosan for speeu considerations, is tna 
major urawoacx to implementation of a compact! lying (or free storage 
relocating) garoage collector t ana is the sole reason that an atom 
wnlch- has a tfALUE indicator on its p-list cannot be racluimsU »s a 
-TAA* avun though the atom is no longer bouna to any value tsee page 2 
for *nore on the VALufc indicator). 

MACLI5P Is essentially a machine language implementation of 
the universal function bVAL along with some initial a-list (for 
"environment" since WACLIbP has no true a-list> ana with many other 
subroutines useiui for reaoing, manipulating v and writing out 
^-expressions. The system comes to life through Its "top iuvel" 
function; that is, "top ltvel" may be vlewea as the continjous 
re-appllcatlon in the top-level environment of some junction ol no 
arguments. ^Or systems using tVALOUOlE, the top-level function is 
vary much like 

Mtll printtapplylreao( It reaaUlJl 
where HtAD reads in one ^-expression from the current input channel. 
The normal top-level for MACLISP is equivalent to 

>UJ* errsetlprog-Uterpril Ji printt evallreaoE J1J Ji TIJ 
in the vernacular of programmers, on& coula say that tVAL is the 
top-ievfcl for MACLISP, rather than cvALUUOTfc. 



The progradbkdr in 4ACLI5P, however, has trie capucilicy to Ciwig« tfl» 

forn given to EhhSET for evaluation. t*or example, in oruer to change 

to bvAL*uoIc, one coula replace the KrtOu* on trw ^r&csauing pa go witn, 

say, 

prog-it terprlt J* print I apply! reauC 1 1 r^aui J] )] 

i^ee discussion of the functions STATUS end SaTAiuS on pugg £l>- 

Threa global variables, i.e. those witn blueings uc tne top level, 

have special relevance to the top-level function* 

(I) If tne value ot BAKUAG is not alL, then a eacntreca is 
prlnteu out tor any error which propogat^s all the *<*y up to 
tne top level function (errors which nave oeen crinbtT oo hot 
pop bacx beyono tne fchrfSbi in wnlcn tney occur). The 
oacictrace, essentially an inspection of the system f*JL, will 
print out Muni ^tvALAKvb" to indicate that tVAL has at that 
point co.nioenceu the evaluation of arguments lor the function 
fun!, ana "lunl-ctfTtrt" to inuicmtu tnat function funl nas 
oeen entereo but not yet exltec. Ocasionally, LAkJAO will 

print out "funl-funS" to indicate tnat fun^ has oeen entered 
oy a call Jrotf funl. 

ti) it the value of *RSET is not ML, then tne phase of 
cftKSfcT which restores the oinoing of special variaolu* is 
oypasseo (ano inoeea all variables in **ACL1^ ar& special/. 
This applies only to the top-level "dndStl", but in joany 
cases allows the user to inspect the environment at the tiaia 
of the error* 

(3) cRKLIST. normally set to KIL. is a list or forms to Oe 
ctfAL'au upon recovering from an error propogating to top 
I-jvuIi this allows the user to supply a little of his own 
re-initialization for special purposes. 

oath *R5cT ano tiAKGAG are also function names such tnat EvAL'ing 

(*tiS£T X) is fully equivalent to evAL'lng (SETu *H3tI D. ana 

similarly for bAKGAU. Typing TL on the job console (or cVAL'lng (IOC 

o)> nas special relevance for the top-level fiflKSEI - an error is 

createo whicn no other BAftSEI can catch, ail I/O channel switches are 

returnee to their initial state tsee page 3*i>. the top-level function 

is r^storeu to tne formal one for MACLISP, and the message "JUli" ia 



Lla,- r'.rf. 3/20/ ii 



jjrincju on tns console. Thus 10 is tin unconditional nJit sional, 
similar to the (a quit signal aescribao on paje lc. 

iaa functi.cn AiACUMfr 1 prcvices u Jiejins ci fi&ltift^i Computation 
anu returning control oj the console to tne monitoring pro^r^,*, 
Jsually the monitor is the extenoea version or ui^'s uta ^ic.i is 
lodujj wnan tne usar logs in at a console, out occasionally it is US 
uirectly. in the former case, storage areas not active ^i btttf claa of 
MACU-Wing are zerotiu so tnat a Dinary ouap to auxillidry -u^ory will 
taxe less spacei in the latter case, it is assuoieu tnat tne user has 
reiin^uisnec the Job, anu it is logg«o out. 



Jew functions Aaaed ana Limitations on raaiillar racllitlcs 

All property list [p-listJ usage must be in pairau rorm - 
rLAOS are not allowaa. ATIHIb is not Implemented (Indeed, ftCQHG couIcj 
be usea to the same purpose), but the function t^UIPnOH is provluco as 
a means of placing a value ano corresponding Indicator on an atom's 
p-list. 

putprop[atorai value i indicator! 
will insert "indicator" followed by "value 1 * at the beginning of the 
p-list or "eto:n", unless there is alreaay an lnoicator or the same 
name on the p-list, in which case the oia value will be liPLACA'o out 
with the new. It Is likely that the implementation of atomic 
structures will change, but the functions PUTPROP ana GET will always 

be Kept "up to date* (see chapter on future plans). The Indicator 
VALUc, whose paired value points to the atom's SPECIAL value cell, ana 
the indicator ARRAY, are treateo specially by the p-list handling 
routines , and there may soon oe a ai f ferent , and faster, 
imp lenient at ion for the three basic and important properties* 
pname, value, ano function. Although OkX serves as the stanoard p-list 
retrieval function, another (unction GETL is provided to solve the 
following proolems* 

( 1 ) to alstinguish between tne non-occurrence of an 
lnoicator, and the retrieval of a NIL value, 

(2) to fino which lnoicator from among a list of indicators 
is the one which occurrs first (if any from the list occurr 
at all). 

Letting "pi 1st Lai" stand for the p-list of an atom "a", the 

implementation of GETL is very much like 



getlCai 13 ■ [notlatomta J] + errorU; 
T * lebelfgetlli 

lambdaftxt Hi 

[nulltxl * NILl 
inemqlcarlxj i 1 J * li 
T * getllCcdurtxH lUli 
CpllstlaJi 1JJ 

DEFPROP is essentially the FSU6R form of PUTPROP, alio Is 

generally useJ at top levil to place EXPR, FEXPK, ana MACHO properties 

on atomsi it has been the usual method of Defining functions in 

MACLISP, but DEFON has been implemented to provide a mora clear 

Indication tnat such a definition is being performed, ano to allow 

smoother experimentation In the structure of p-list ana function 

representation. Some example definitions* 

(DEFPROP DOODLE 

(LAMBDA (N) (PLUS N Hi) 
EXPR) 

An optional type lnaicator to DEFUN (from among FEXPR, EXPR, or MACRO) 

Is placed Just after "DEFUN", the default option being "EXPR". 

(DEFUN FEXPR 

FPUTPROP (X) 

(PUTPROP (CAR X) (CADft X) (CAXR X)J 
(CAR X)> 

is equivalent to 

(DEFPROP FPUTPROP 

(LA4BDA (X) (PUTPROP (CAR X) (CADR X) (CADDS X>) (CAR X)) 
FEXPR) 

The pseuoo-function ARRAY serves to make array declarations, 

turning the name of the array Into a finite function. An array may 

have from one to five dimensions (indices), ano may be oeclared to 

hold list structure or, simply, airect data - the matter of importance 

is whether or not the garbage collector is to treat tne array entries 

as pointing to living s-expressions. ARRAY Is Implemented as an 



rsujw, and tne oraer of arguments is slightly uliii,rant /row t.ict in 

Llor 1 l*£. ^diaple rorra for EVALl 

(A1VJ1AY anacie t-cr-nil nl n2 * ■ ■ n*) 

whara b<k<o f ana t-or-nil is the Qaroaye collector suites, iht nafiitf 

ior th^ array is taxen directly ano not «v lu^t3Q - Lha oiaar 

arguments ore evaluated. Tne array setting function, an t-aUart, works 

through a sije-effect in the accessing junction. cuvL'ing 

CSTQEiE <an*fle il u « . . ik) mi) 

will store tne value of cfc in anaftelili 12| ■ ■ ■ 1x1* The .ACL1SP 

user has the ability to stretch or snrlnk tne size of an array, oven 

aftar it has been in use ror sofoe tifoe. ih&re are a few applications 

wherein tne proper size of the array is not known until alter is nas 

been partially filled. it woulci be too wasteful to nave to declare a 

new array ana transrsr tne entries oy rceans of LI3P couu, or to 

oeclare initially the array to be of monstrous size. The function 

nc*ARRAY is calleu just like A*&AY, ana perform* a stretching or 

shrinking in the size declaration (this usually involves a call to 

ARRAY ana a fast, memory block transfer). In order to achlavs 

something like larcfcOa binding of arrays, ana the consequent 

reclamation of their space upon unbinding, one often computes 

.nofili 

(EVAL (CONS 

(QUOTE AnWAY) 
(LIST 

(SETG A {Gfc<*oY*)> 

t-or-nil 

nl 



nk))J 



in order to use a Ilka a functional argument, aitrwr with APpLt 

(APPLY A (LIST 11 12 4 * • Ik)) 
or, if A has no runction indicators on its p-list, olractly with fcVAL 

<A XI i2 . . . Ik) 
(sea page 4 on computeo iunctions lor ttfAL; Any array spac« whicn 
oecouies cut-off from living list structure, aither through rapeatea 
application of ARRAY to the same name, or through use of H£*AJMAY 
(which may re-spaciry size zero to remove an array;, or through lambda 
unbinding* will eventually be reclaiJieo by the system* 

Some functions have not been implemented because their purposa 
has Qebt\ fulfilled by other features* ror example, dOOLE is very much 
like a functional - its first argument selects one of the sixteen 
possible boolean functions of two variaoles, which is tnen applied to 
the remaining arguments as a 36-bit logical bitwise operation - and 
thus there is no need for LOUOfi, LOGAND 9 or LOGXOrt. Similarly the 
excellent deougging features of the monitor- like system EDI, ano the 
other features of IIS Mice the function of DUMP unnecessary. In place 
of TEttPUS-PUGIT, the MACLISP user may reaa a real time internal clock 
(accurate to about 5 microseconds), ana may reao a .run-tirae clock to 
measure C.P.U. running time useo by the joo which read it (accuracy 
aepenas on changing conditions within ITS, but at oast is about 5fl 
;uicro5*conos). COPY ana CPI oo not exist - one may obtain a copy of 

an s-expression s, aown to atomic level, by 

suostlML; MLi si 

ano a copy of the top level of a list 1 by 

apperiallf tflLl 



oUt-LIi has bean iaipleraenteo very mucin an shown lor ofiAfic Lla^ on pana 

Sd or LISPl.dM, so that no unnecessary CQUS'ing is oonei however it 

uses an cCl test and requires that all the dott*«J pairs of the first 

argument oa of the form (u . V) where U is *n ato.ii (this last 

restriction allows a clever ana speedy implementation) • binca tharrf 

Is no a-list, and consequently only SOCIAL value:-, ther* is no need 

for APVAL5, nor functions CSE1 or CScTu, The function FUNCTION is 

functionally equivalent to QUOTE, uut It the MACLISP user fiuaos a 

RJNARO binolng with an a-list of the llmiteo fon» described on page I, 

he will obtain it using the [unction *FUj4CTI0W. Otner functions nave 

not bean implemented at all, ana as yet there has bean only one 

incident in which a user desireo any of them* CONG, SEARCH, OHEP, 

PAIS, RECIP, EXPT f LITER, SELECTO, 5PEAK, COUNT, UNCQUNT- None of the 

functions of the compiler or of LAP are normally resident in the 

system - see page 34 about their usage, 

ERRSET is the MACLISP equivalent of ERRORSET, and since there 
is no o-list*nor any means to trap out on excessive conslng f there are 
no arguments passed along for these two facilities. ERRSET is 
implemented as an FSUBR and EVAL'ing 

(ERRSET EE i) 
will return listtevallEE] } if no errors are' encountered during the 
evaluation of tfcl otherwise at the occurence ot an error, computation 
will be interrupted, the state of the system restored to that Just 
before beginning the evaluation of the ERRSET, and an appropriate 
message printeu out if evalliJ is non-NIL. For all errors generateu 
oy the system, ERRSET returns the value NIL, but if the function bRH 



is caUca auring the evaluation of tE» than a Harmless arror is 
createc (with no corresponding passage) ana the brguraant to znH Is 
returnso as the value of the UfifiSfcT. Typing U on the console 
generates an urror with tne messaga "UJIT". oenerally, ond joes not 
wish to suppress error messages, 50 an alternate snort form Is 
provided! 

(EKRSt'f fcfc) 
evaluates Just liice 

(EfikSEI ££ X) 
In view ol the implementation 01 Input/Ouput for **ACLIop tsee 
pages 23,24) f it Is nardly necessary to mention tnat none or the 
functions in Appenoix H of the LIbF lo Programmer's Manual are 
needeoi ano furthermore there is no initial set of character objects f 
since there is no Difficulty in reading in objects with bizarre names 
using the slash-sign convention for "quoting 11 characters in the input 
string (see page 27), Although the ss convention for reaoing strings 
as atoms is not directly implementeo, it may be simulated through the 
device of a rtEADMACfiO character (see Example 4, page 3k)K j-or really 
oadball atoms, the string-quoting convention saves the effort of 
having to "quote" every non-alphabetic character in the name. The 
functions EX^LO&E ana EXHLOUEC proviae - the means of breaking up an 
etOD into a list of the characters of its PNAME, using respectively 
the conventions of PflIM ana PRIHC (see page 7>i rLATSIZE ano FLATC 
are equivalent to \t(x J llengthlexploueU J J J ana to 

\[(xmengthf expioaeclxJ]J respectively. tfEALLliil is the means to 
apply nEAU to a list of cnaracters rather than to the string of the 



current input channel. MAKftAM also taices as wjuatent a list oi 
iin^rjCLurSt and creates an atomic ooject whose HftAnb is cooposdj iron 
tnose cnaructarsi this new object Is not IttfafiH'iEu 

^cLtin, a new function, is providea as a wt-y to spiica out an 
uluiani iro^ a. list tin effect using nVLAtuJ; tne surgically triKiM 
list is returneo, which will te t^i to the original list unlass the 
element re^oveu was at tne first or tne list, UtUic is implemented 
d5 an Lodbn so that it may ue applieu witn two arguments, or witn 
thra* arguments - the optional tnira argument ueing an upper liu.it on 
the nutuOer or deletions to be made. ilie oefault option lor the bhinJ 
argument is "delete all occurrences 11 , UcLtft uses an cJuAL tost on 
aacft element of the list - ukLu is proviaoc to operate just like 
jtLcic except that an tfl test is usau. Ordinarily, one writes (ScTO 

rOO CDhUi X FOO)). 

In conjunction with tne PROG xeature, a last, roa chine language 

£)0 is provided, whose action is most accurately described oy the 

»aacro-producad expression useo by the compiler in place of the DO 

expression i 

(U> inoex initval stepfun aonep . . .) 

expanos into 

(PAD J (index) 

(Sclu index initval) 
tag (OQND (aonep (RETUHN index))) 

■ 

* 
<St7u inaex stepfun) 
(00 tag)) 

ine compilation or a DO actually results in the compilation of its 
corrast-anaing i*K(M* using *j0 witn the interpreter nowaver, reouces the 



overhead of inoex manipulations and Is much more mnemonic. Note* tnat 

the fragment Inolcateo above by ". • .*' may include prog tags, 

uO / s t ficl Uk^'s, etc, Example i. 

(DO 1 b (ADUI I) (GkEATEKP I h) 

ICOtiU <<N0I(NUM6ERP (A«R I) J) (RETURN (JUOIb FOD))}) 
CSETQ SUM (PLUS SUM (ARH I)))) 

There are specialized I/O functions to access and utilize the 

various peripheral oevices attached to the PUH6/I0I a DEC 34d display 

scope with character generating features, a light pen input from the 

display scope, a CalComp plotter with an interpretive subroutine 

package (which accepts a wide variety of commands including the 

plotting or a display from the tifcC 34a) t analog-to digital and 

digital-to-analog converters for use with robotics oevices and with a 

few other random oevices, a vlaeo signal processor attachable to 

r 

either a modified III image dissector or an III image dissector (an 
image dissector, or "vidissector*, Is \ik% a TV camera except that the 
scan is random*-access addressable rather than continuous and 
sychronizea. ) There are no card reaaing or punching facilities, but 
all the external memory devices available through ITS are availablei a 
paper tape reader ana punch, four DEC magnetic "micro" tapes, three 
IdM model 2311 magnetic disc units, and a Data Products line printer, 
i'here is also provided a software simulates vldlssector, which can 
read storea images froai auxllliery memory, so that pattern recognition 
programs may be tested regardless of the physical condition of the two 
real vi dissectors. 



fha function bTAlUS has ueen Lnstc-llea as a centrulizati Mans 
of querying the status or many systeji variables ana conditions* ;ivoa 
an appropriate argument. It provioosi the limits alloc^i^u icr the 
various storage areas In memory, tha amount oi cere occupied oy tha 
Job, the amount of storage still fruii in a QlY-tfl arcu (currently 
impleraenteo only ior "fraa storage", "lull war- s^uce" f gfta "oin*ry 
t^rograii. sp£.ca"i, trie activity of t-it* various I/O channels, the current 
input channel for RfcA£, tne syntactic category oi the 2#»u AoClI 
characters useu for input to ricAb, switches for various garb^g^ 
collector features, switch to allow readier oi nmr.oers with 
non-aeciiual digics Vhaxaueciaal, for example), the switch to inhibit 
oeci jial-point print wnen printout is in oas^ ten, t-ie svi tch to 
inhioit direct linking froi& compileo cooe, the switch to Inhibit 
aJorass checking on array accessing, ana the foria of the top lev^L 
function. The function oSTATUb proviaes a .neans of setting all these 
variables or switches, except for the allocate limits of storage 
areas* A number of system variables, including sode of thos^ 
oiencioneu above, are Lr*plej»entea as the special value cull of an atom, 
ano are tnus r&ferrec to as a "global 11 variable, There will bo en 
appenaix IA^Pgi.dIX C)which will explain more of the uetails of using 
iTAfU5 and SoTAlOS. 

uOiV^iiitt is a co-nothing function, FSUifi type, which (Barely 
returns "COXlcJiT 11 * uECLA<iu f also an HSObj; f is similar, ^xc^pt that 
the compiler ta<ces notice of UfcCLA«£/s* brtcAA operates as describes 
on pa^e J and is called like M (bntAiw tOO B) n - ir the value ci s is 
iion-.ilL. then "i-UJ" is printed out ana the areoitloo^ ent*reo« 



I/O Channels! HEAD and PrtMI 



Trie major input function for any LISP sy staid is fihAU t wnich 
inputs characters, one at a time, from the current input channel, 
interprets tne characters as being the linear-parent he si zed 
representation ol an s-expression (or list), ana constructs tne 
s-expression In the tree storage area of the system. <:tief\ a 
sub-section of the input string is parseo as an atom toJcen (for 
example, a string of alphabetic characters lollowea by a spacei, the 
function iiJTtRN is called to see whether or not an object of the same 
HrtAMc is already in the ObLlSlt if so, no new structure is constructed 
oy ,icAL ? but insteau the atom to<en is identifier witn the atomic 
ooject already there. Otherwise, a new object has to be created, with 
PMAME composed of the inputted characters of the atom token, ana the 
ro suit ant placed in the ClLIST* nather than the caru-orient*ia 
functions oTA^TkcAD and At) VANCE* MACLISP ha£ the new fucntlon READCK 
whicn inputs exactly one character from the current input channel and 
returns the atom whose PNAtiE is Just that One cnaracter (called in 
LISP 1. 5PM a "character ouject*'); as with HhAU, the runction INIcklJ is 
invoked. Ihe new lunction TY1 also Inputs exactly one character, but 
returns the numerical atom whose valua is the A5CII value of the 
inputteo character. 

There is a unique input channel for *ti:AD f RtADCK, ano TV I 
whose normal, or oefault t source is the job console. oy typing !ti on 
the console, or by calling SaTAluS with an appropriate ar9ument t tne 



Input channel source will be switcheu to an auxilliary memory rile 
previously selected by the function UflEAD (it is, of course, an error 
to try to change sources when no file has been selecteo). The 
argument to UiiEAD, an FSUbS f specifys the oavice anu two file names, 
out if no argument is supplieo v certain convenient Default options 
will be exercised* As soon as the coiuiaand is given, READ \or HtA£CH 
or Jit) begins Inputting characters from the seiectuo Ille, rotner 
than the Job console! the job console is re-selucted a* source 
whenever ("5 is typed on it f or SSTAIUS is callac with appropriate 
argument, or when the ena-ot-file character is encountered in the 
selected tile. 

Hrobaoly, the aost important use of the auxiliary uieoiory as 
an input source is to augment, massively anu rapltiiy f the store of 
named LISP functions- Instead of typing many Ut^UiVs or DthPROP's at 
the console, the user simply stores a sequence of such forms on a 
file, selects the file with UREAD, and gives the JO command. The top 
level function is still running, so under normal circumstances, the 
forms are reau in t cVAL'ea, and printed out (unless all output 
channels have been uisenableo). Ahen all is done, i.e. the 

end-of-file character is encounterea, the Job console is re-selectea. 
The t-0-t charater is not actually useo by READ or hEADCK or TYI, but 
merely serves as a signal to restore the console as input source* 



Or course, a selectee tile may serve as a ^ata source for a 

program which uses HEAD. The following sample program reads in a 

sequence of numbers, terminated by a NIL, and returns tneir su*a. 

(LAMBDA NIL 

(PROG (SUM X) 

(SETQ SUM tf) 
(URtAD LOTSA NUMBERS) 
(S5TATU5 IOC 0) 
A (COND ((NULL (ScTQ X (RtAJ)J) 
(SSTATUS IOC 5) 
(RETURN SUM)) 
((NUT (NUJA6EHP XI) 
(ERR (QUOTE (NON-NUMERIC IN FILE))))) 
(SETQ SUM (PLUS SUM 5)) 
(GO A))) 

To illustrace some other features, the example is re-written noting 

(1) the switch for input channel source is actually the valua of the 

global variable tQ t so in this particular case, the IOC (for 1/0 

control) commands may be replaced by a SETQ or lambda binaingi more 

importantly, the status may be pushed and poppeo by lamboa or prog 

Olnoingi (2) if READ, implemented as an LSUbft, is called with one 

argument, the E-O-F character not only causes the console to be 

re-selected as noted above, but also causes RtAD to return its one 

argument as a valuei if the E-O-F is not encountered while reading the 

current s-expression from the file, then READ operates normally* thus 

a read mode is available which will actually reaa an E-O-F and return 

some glvan quantity! (3) The name of the file is made an argument for 

the sample function and APPLY is used with UhEAD (insteaa of 

constructing an appropriate form to give to EVAL, a necessary tasK if 

APPL^ Is not capable of applying an F-type function). The revised 

example does not require a NIL to terminate the nurctiers on the file, 

sincta the £-0-r causes reaa to return an unlikely quantity. 



(LA»bDA (HL) 

CPflOC (SUK A tu) 
(SclO SUA Iff] 
(APrLV (QUOTE UnbAb) i-1lj 

tsfixe tu i) 

A CCOMD (<c0 C5cTu A (TuiAiJ (wUOTd rU>tX-E-C->*);Ji 
tUUOIE rCGii»-c-i>!-)) 
(RcTUftU 5U*>) 
UiJOT (NUttfiE&P a)) 

(SfiTO SUM (PLUS SUM X>> 
(00 A))) 

lhe syntax usea Oy READ to parsa tna input strecua of 

Characters into an s-expression is aLaost identical to tr*at aascrioad 

on pagus J ana 24 of LISP l.bfMl a few extension;*, one or then very 

powerful, are noted below. except ror strings representing numerical 

oojects ion of the jnore complicated tables for AEA&), tna syntax is 

very cnaracter oriented ano contaxt-inc-upericient. Thus the characters 

tneaningiul to flcAb fail into nine categories* 

(1) olpnaoetic, i.e. "A", u d", etc., and extenaeo 
alphabetic, e.g. "1", "f", "*", ■»*«, "-", etc. 

(2) aeciual aiylts, i.e. "I", "<> ,l % "3", . . . "v", \" 

(3) conttfxt-aependent number iGoaiiers, i.e. 

(3iaJ "t 11 for fixed point scale lac tor inoicator, 

(3o) "c" for floating point exponent inoicator, 

(jc) "*" for a left-shift in oase 2 notation, 

(3u) •+* ana M -» (or algebraic sign, 

(j«) • l ." for oeciaal pointi 
14) optsn parens, i.e. •'(» 
la) uoi, i.e. w .» 

(6) close parens, i.e. ")" 

(7) ru&out (ASCII value 1 77) 

(g> Che literal-character-quoting character, i.^. e/" 
(*;) ii.acro characters, specifiable under program control. 

except when precee&ea by a slash, all other characters encountureo oy 

HfcAfr are simply ignored and alscaroed* t*ot su rpn singly , the 

ConteXb**CJepejWent characters of category (j) are also incluuea In 

ocner c^Ltogcri^s &e v^ll. 



fhe slash Is the stanoaro literal-charact*r- H uoting character, 
which fuodns It Is usea to incorporate non-alphabetic characters into 
the prlnt-n&iids of literal atoms, ana any ASCII character except 
rubout which follows slash in the incoming character strea.ii will oe at 
that point treated as if it were of category (1) (see oottom nail of 
page 7 for examples and more aeteils). Actually, any maximal string 
of composed of characters from categories (1) ano (i) will normally be 
parsed as a literal atom token unloss it consists only of olgits f in 
which case, of course, it is parseo as a number atou token. Thus, 
"IA" is a perfectly goou literal atom token xor MACLISP 1 and 
incidentally, so is V12'" since the first character will oe inputted 
as category II). There is no limit of 3a characters for atom r>NMEs f 
as suggesteo in LISP I • 5PM* A feature is proviaeo in which any string 
composea of letters ano oigits ana preceeaea by a y +" or "- 11 is talcen 
05 a number token, using "A 11 , Q b", "C", ... as supra-ueclmal 
aigits. Ine feature is not normally turnea on, ana may be switched 
with 3S1ATUS. 

hhen inputting from an auxilllary memory file, the rubout 
character is ignoreo, but when Inputting from the Job console, the 
rubout character causes the proceeding cnaracter to be ••rubDeu-out" , 
i*e* it is removeo from the buffered input string, and immediately 
printed oac* again on tne console to announce its removal. Ho special 
character, or sequence of character is necessary to signal the eno of 
an s-expression since it is determined wholly by syntax* Needless to 
say, when one s-expresslon's worth of characters are fuly inputtea, 
typing a ruoout will have no effect on then, for the READ'ing will 



,iuve sun accojipllsnfcu* 

fne syntactic category or any chdractur nay OB inspects with 
JiAUS, and way actually be altarec with SSTAIU6 tsa t pagd J/. iiius 
one coulo re-specify "I" to be in category (4), or "J" to be la (6), 
instaau or in (l)# (The unfortunate user coulu ev^n suae niiassll up 
the AcAb stre^a witnouc a parens by shutting off the catft&orj C-v) 
leaning for "("). byntax information Is storeu in a ^LJ-v^ora taoi^ f 
jlon,> with a Pi*A* t E translation* the letter feature iinos Its u^e 
primarily in converting "& M into "A", "&" into "B", etc* so that one 
new not continually holo uown th* shift key irnan using a u-ouel 37 
teletype. (Model 3b teletypes ana 0£ consoles nava only Ul 

characters on tneir xeyooara - tfoael 37 teletypes have all £** 
cnaracters of the new AbClI alphabet). rigwav*r, Va M will still be 
inputted as "a". (Note that all syntactic ana translation properties 
attrioutau to characters only apply to the operations of READ. HcAt>Ch 
ana ffl, explained on page 23, directly input one character.) 

Tiie S£ALM\ACRii character ioea is a means of using Lii»*> 
functions to generate s-*xpr*ssions at ritAJ tl&tif quits simply, 
wn«raver a aiacro charcter appears in an input stream, it is replacuc 
oy tne result of calling an associated function* A Macro character is 
ueclareu anu its corresponding function specified with S5TA7U6 , and 
aach such macro is further classifies into one oi four types {probably 
best understood xrotu the exauples bclowj* (I) elemental, iuizneuiatei 
(<:) elemental, uelayedi {3) splicing, inuaeuiatei and (4) splicing, 
ualayjii. Tha first dimension inoicatas whether tiia result of the 
u^soclateu function is to be treatec as a single element, or wnetner 



it s.wuid oe j list whicn Is appenueo, or splicea, into u tor^iac list 

(ue, it is a lisc fragment). The secona dimension Indicates tno 

"tUid" ol which tn& associated Junction should he Culiea - since EtiiAD 

may oe called I recursively J by tn* associate- function, it is 

important to specify whether tne recursively-call*- ncAiJ take* iLS 

input as tnostf characters immediately rollowlng the occurrence o* the 

iiiacro character, or whetner It halts anu uses tiiose characters coning 

in a/ter the first-initiated -icAL has inputteu its share. runctions 

associates with inuieuiate macros have no arguments, taose with clayed 

macros have one argument, wnich is oound to the current product of 

rfEAO. 

lixampie I. In oroer to use M/ s u in tne input stream insteao of 

■UuUufE s ' ,l i the character single-^uote is ueclared as elemental, 

i mine j late macro witn function » 

r 

XCUl list C£.UOTtl reaol 13) 
Thus when RcAD'ing "(CONS I 'O-QO Oil YOU)) 1- , as soon as the 
single-quote is encountered, hEAU is callaa recursivuly to obtain ti-GO 
OH iOD) whicn is then comoineo in the call to list, ano the final 
result is tne same as if 

(CONS I (QUOTE .(F00 Ort YOU))) 
were the expression to oe read in. This racility with single-^uoie 
ius oeen ue*mea so meritorious that MACLISP contains the jefinition as 
part ol its Initial structure - one woulo nave to remove * J<I fro»u the 
taacro cnaracter category, again using S5IATUS, if he aid not uesire 
its use* 
cxeir.pl e *;. using the same function as in example I, let n l w be a 



splicing, immediate n;acro. then ll (r£VAL I 1(1*00 OS lOu)) 11 i* re^a In 
as 

(FEVAL I WU01E (fUO Urf V0tf))« 
example 3. Lst "< n be a splicing, aelayeo macro with function 

l&oelC foot 

MlxJl Leqlxi rightanglebraclcet J -» ML; 
T -* cons[x( f ooireaul ] 1 J1J 
Jreaof J J 

The following engllsh description or the action of tms Junction is 

offeraa to the the reaaer who has not already adduced It i a maximal 

sequence of s-expressions terminated by a ■>■ Is read ana a list of 

them, in the oroer in which they were read t is returned- filth n <* so 

embellished, the UO example on page 20 coulo oe rewritten 

(DO I (ADD1 I) (GRfcATERP I N) <) 

(GOMJ ((ttOKNUHbEhP (ARfl I))) (HETURK (JUOTE rOO) ))) 
(ScTQ SUti (PLUS SUM (ARR I))) 
> 
example 4. Although an elemental, immediate type example has already 

been given, this one is produced to show how the literal atom string 

feature aescribeo at the top of page o4 of LISP 1.5PM can be simulated - 

in MACLISP. Let »»■ be a macro with function 

progltenachi xi 111 
reaacM 1 1 

endch i* readcht ) I 
A x "- readcht )i 

leqlxi enach) -• returntreadllstl 1 JJJl 
1 ■« appenollf listtslash* xJJ* 
gotAJJl 



The syntax for number tokens is similar to that de^riuuj in 
LXSP1-£PU t but 

(1) the input base for integers is not necessarily tcni it 1& founo as 
the value of the global variable ILAbE, which is initially aat to 
aight. 

(2) "a" aoes not serve as an octal indicator* rather ».« serves as a 
oeci.nal indicator! e.g., the string "6k,. «, illegal in LUr Us, is 
taken as an integer base ten regardless of the value of IdASic* 

(3) M w an& M +« act lilce operators on two integer t alcana J "atu» 
results in number a multiplied by lbAS£ b times; "i^o" results in 
number a multiplied by 2 o times* Assuming IbAat is eight, then, 
"4^0. », «N>12. % »10t3«, and "64. **'• all denote the saaie uuaerical 
value. 

(4) It is permissible to begin a floating-point nuiober token with a 
decimal point! however one must remeoiber tne advice to place spaces 
around a dot which is intenoed as a separator for a dotted pair, but 
whicn occurrs aujacent to a aigiL. 

Internally, numerical objects are 36-biL quantities with one 
of two possible inuicators - h'lXNUU or FLOHUU. Thus all record is 
lost of the form of the token in the input stream Which gave rise to 
the number, anu it is possible that a printout of the object will not 
yield the sane string that causeo its generation. 
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ror PrfINT, Pfili.l, PHIKC, ana TtfG output btwre -r* four 
independently enaoleo channels, e^ch with its oven switch I;. th*J foria 
of a glooul Vdric-bly 

(1) the joo consolai nOft-NIL value for *•< .scans dissnaklca 

(2) the jata Products line printer! uon-*.IL ior *d uedns 
BfWblfla 

(J) the JcC 34b oisplay scope, Ujrf^reu for character output 
oy ITii now NIL for *i- means enaolec 

<4) an auxiliary memory aevico or remote console, 
previously selectee by tne function UrtRllcf uoif-ftlt* Value 
(or *rt tfjans enabled, 
iinci ell four switches are varlbol* values, their state .nay oe pushes 

and poppu^, oiony with that of the state of Lia current input channel 
(sh pagas 23, 25}« by laraoou or prog binding. Hie variables f*aa*S 
ueriva from the early implementation of I/O control; typing H., I7i| 
1*1, D, or H* respectively set t^, tr-, tu, ♦;» f and *.> to nan-SIL, tino 
typing lb, Ttf, f£, Ty, or TT sets the respective switch co NIL. 
Although tn*se live switches nay be changec with oclu, the function 
IOC lano SSTAIUS) is provided to perforin « oy evaluation, the same 
action that occurs when a control character is typea on the Job 
console. An output channel selected by UhfilTc* anc possibly written 
on axter enabliit:.ent , is then closea unu filed with the function UrlLc 
the ilia structure of IIS does not permit any other access to tne 
output rile until it has been properly closed ana filed. Optional 
arguments to JMLh are file naaies, with certain uefault options, which 
will oecowe tne two na^es ioentifying the fila on an auxilliary uie^iory 
uevicj. 

rtitan PoIM or PnlWC is outputting the characters ior a 

numerical oujact, the base representation is not necessarily ten, but 
L.-ie value of thi global variable BASE f ano if the oase is ton, then 



tfucn inwyer-output-stlng is rollov.uu Dy a jeci»*.ol pa inn t ior proper 
r*aO-In under the convention (2) aescrioea on pj^c J~« ilo*cver f tftls 
. . i al-point-p j iiiucit can bo inhiultou oy sotting Ij*j Jlobal VurlsSXe 
*MOP0IK1 to noiWilL. ilo other ron.* tiling feature yet -A±*t In 
MACLISP* It l£ possible to output in base raprosenlutions lefgar Wmn 
ten {anu less th&n thirty-scvoni * but tndra i* still £C^ u.iiui^uiLy 
aoout tnls feature. 



The CoGpilort LAP, ana Auxilliary AiuB 

• 
Jany functions, because ox their infra^uency 01 usa, ar* not 
part oi the oasic AACLISP system, but may be loauew In enu useu vflwo 
so Gjsirea. Tne LISP compiler and LAr assoiablwr arc two sucn utility 
routines. ioth are written in LlloP coae v as EXPit'a ana fasA^U's, out 
the compiler is so large that the initial PLP/6 coniiuur^tion ruiu Just 
aoout enough core to hold a system with a compiler loa^eo in un^ leave 
sone free storage for smooth running. As a result, compiling is 
usually uone only in an augmented LIsP systa,* eu;dallisheo witn a 
compiled version of the compiler. The compiled EX.Pa's an- rtAPlVs 
occupy coout tl,t;L'J (47*,ii*> cells and run about ten times faster than 
their LI6P counterparts (for example, with similar amounts of working 

space, compiling the compiler talces 31. minutes using interpreted 
coae,, but only j.I ailnutes using compiled code). In addition, 
coiQpilec cooe requires on the average only about hair as many cells as 
aoes th« LISP cede giving rise to it» ana Goes not require the 
tide-consuming marking phase ouring garbage collection which Is 
necessary to protect the cells holding LliP coae. Aitnough tne 
compiler Jiay be applied to functions uefineo or reao into tne 
embellished system, it is generally usea as a file transuueer - i.e.. 
Subexpressions are reau in, one at a time to prevent free storage 
jLrola, from a selected auxilliary memory file, anu those which 
represent function definition*, such as (DEr.UN , . . ) or (DfiFP.fiOP * 
.1 , arJ coiuplleo into corresponding LAP ccue or. an output file, 
i-or each junction coiLplleu, the g«nerateu LA** output is a sequence of 



£~&Xpressions f one for each machine instruction or laud, tGfjiinataa 
tiy a .-IL. This joriret is us^o, ratner than a sinyla— list lorua*. *s 
udscriueo In App*noix U of LlSH.5Ht.i f so tnat LAI- A«> r^*-. ih uhe 
assembly wor^s one at a time &nu thus avoiu u#»^ul' itruin an it 
storage ror.ns in the input file 

(bhCLAuc . . .) 
which nave no effect when fcVAL'eu, signal certain coiu-itiuns to the 
compiler, such os special aeclarations, etci other fwas whicn ur< noi 
function oeiiniticns or LteCLAite's t-r« uerely ,u.3S*;> frou input to 
output file. This scnewe has workeu quite well - ttost u^ujo^lji^ is 
oonn with interpreter coae (which is quite fast anyway), ana wr,en u 
file ox functions appears secure, it is cooipileu lor suosequeut Use* 
Although one expects a speeo-up in general of auout a factor or ttn, 
4iany functions seem to ue li^niteo by trie speea oi Adenine longu&gQ 
^Joh'^t such as kLAD or A&iGC, ana some show spesu-u^s of less titan o 
ractor of two. 

The first implementations of La? for iCACLISP were entirely in 
cX?fi-rcAPA form, uut very shortly an "inner loop" wai. caoeo oy hanc in 
LA? ana appendeu to the file of B^K's In oroer to be bootstrapp&o in. 
In tact, so critical is this "inner loop 11 that when tne remainder of 
lAt* Is coiapilea t the ouserveo speea-up is only about a factor ox two. 
Currently! the greater part of this critical loop, comprising aoout 
I*** Cells, is resiuent in the system, as a compromise between tiu 
unJG^iraole effects of having all MM instructions in the system end 
cne uncasiraoly long tlfro requires to bootstrap in the critical 
portions. 



As a language, LAP very closely resembles that of .-,IuAo, the 
na chine- language assembler oevelopeu ac tne Artificial inL*iJll>j dnce 
laooratory following the style of iJcC's MACRO ass*uolert the ttajor 
jrawoac*s ure occasioned t>y (I) the dopunoence on facAJ lor input, and 
C2) thfl difficulty of emulating more than a small suos^c Oi nlUA&'S 
extensive ratcro facilities. Ine similarities ana tnara f nowevjr, ror 
LAP is an in-core assetnclor and loaoer, whereas *1ID&£ is a t^o-pass, 
o If- line, asseuule-only system* fo incorporate i4ILrA£ uSse*j,blua 

subroutines into MACLISP, a fairly sopiiisticatec relocating ano 
linking loauer is required* ano occcasionally the extra extort is 
warrantee over the other alternatives* ( I) merely using LAP, 
especially if the suurou tines total less than a few thousand 
instructions; (2) oirectly assembling tne subroutines along witn the 

entire LISP system. Neeuless to say, tor each alternative, there are 

reasonaole applications for which that alternative seems oast suiteu. 

The assemble and loao processing oi LAP takes about 14* seconds per 

2wCi>-woro block of instructions (as measured on an average las* - the 

LAP code lor the coupilerJ, whereas the action of i*4lJAS day often be 

quicker. On the other nana, LAP neeas only aoout 4&Lfc cells total for 

s-nooth operation, whereas ^lUAS, with a large nash-coded taole, 

guneraly occupies in excess oi 4ft f £&0 cells. 

A sample compi lotion* 

<btrU« P0P5YM (A) 

ClbSTP (CAk X) HOOvAJiS) 

(PUlPiiUP (CAR X) (COh X) {OUOTn SVM)> 

(CAfi X)) 

woula givu rise to the following LAP coue (commentary in square 

brackets is for illustration only, and is not produced oy the 



compiler) i 

(LAP P0P5YM SUflfi) , 

(PUSH P 1) (save X on PU.1 

(MOVE 2 (SPECIAL FOOVAfcS)) [get value of special 

Iree variable f-GOwAnjJ 

(HLriZ 6 11) [get (CAR A)] 

(CALL 2 (FUNCTION TESTP)) (execute function ftSl'PJ 

(MOtfEI 3 (QUOTE SYMJ) ("SiM" Is jrd argl 

(hRRZ 6 2 P) [get (CUR A), 2no argi 

(HLRZ a 1 V P> [get (CAh a)J 

(CALL 3 (FUNCTION PUTPROP)) (perform PuTPROP) 

(HUU u 1 k) p> (return (CAn X)J 

(SUB P (U I I)) (restore PuLl 

(POPJ P) lexitj 
NIL 

"CALL" is not- a POP/6 Instruction, out causes a trap to a special 

Interpretive routine which either (1) acts as an interface oetwean 

compiled coae ana Interpreted functions (e.g., if 1E3TP Is an EXPR, 

then APPLY will have to be called), or (2) smashes the CALL with a 

direct link to a machine language subroutine (If the code tor the SUBR 

PUTPROP begins on location 672, then the CALL will be replaced by 

"PUSriJ P.672-). 

As mentioneo already on page o, the functions of TRACt are 

encoded in LISP ana stored on an auxilllary file. Several other 

debugging aids are likewise Implemented ana storea on the COM device, 

although some nave been compiled for greater operating speeai 

( 1 ) The whole editing package as used at oOLT, EERANEK, and NEWMAN in 
their BbH-LISP is available both in LISP ana LAP code. 

(2) A debugging aid called SPY, availaole in LISP code! SPY is 
essentially an evaluation controller with a more sophisticated 
breax-restart facility than BREAK. 

(3) A "pretty-print" and indoxer package, in LISP coae. GRINOEF is 
usea to print out functions in a properly-lndentea format for easy 



viewing. uriltvJtf and GfllXDl aro file transducers lor tne sa^ie purpose! 
Ii-ii/tA scans a file ana prepares an inaex lor it Including runctions 
uefinaa, free variable functions tor unoefined functions/ r^rarencecJ, 
and a very oriel analysis of each deflnea function* 

(4) A oisplay generating package for easier construction of tne arrays 
froti which tne DtC 340 aisplay scop*i takes its conu.aniiS. Available 
both as a machine-language augmented system, ana in pure LJsH coutf ior 
regular systems; there are routines to generate displays ox points, 
lines, curves, connected lists of points, axes, labelling text, unu a 
moveable cursor. 

It has bean noticea in LAH, in TRACE, ano in tne display 
generation packages, tnat some parts can be enccoea in L1SH only with 
great loss of efficiency, while many functions are for all intents ana 
purposes Just as efficient when sneodeo in L1SH as when encodea any 
other way. The interpreter, a very general tool, has its 

shortcomings! but, for a number of Jobs, they are just never 
noticeable 4 



N»B> Appendices will appear to explain to the user the aetalls 
of using the compiler, LAP, and other such aids as above. 



t-uture Plans 

ror some time there has been expressed a hope of spo^diriu up 
ti*e running of cofcpilea arithmetic programs, lo this eno^ wa arc 
working with the MATHLAb project on a new representation ror numbers 
so tnat compileo code may hanale numbers directly, ratner than tnrough 
the medium of an amorphous garbage-collectable store&ge space. It is 
tne consumption of number spaces, and consequent time- consuming 
garbage collections t which is responsible for the tl*ue slowaown of 
--rUnmotlc operations in LlbP. There will be a H1XNDH space ano 
HLONUM spacei numbers will be represented by pointers directly into 
the appropriate space, without requiring an atom header or any fre* 
storage space. However* this in itself is not sufficient roi great 
-livings - it will only reduce by some small ractor the number of 
dumber conses available before a garbage collection is necessary* The 
innovative feature of the plan lies in the creation of two mora lint .n 
stacic areas, the HXNUM pal ana the rLOrtUH pul. rthen a compiled 
function is anterec, a small block of the pul area is taken for 
hololng the partial results of numerical computations, and pointers 
Into the pdl area may be passed along as arguments to other functions 
Just as pointers into the number spaces would be; thus no consing need 
oe aone in order to pass along arguments to other functions. In 
cerl'iin cases of compiled coae calling EXPB code, additional work may 
tie required at the interface in oroer to convert numbers in the pul 
a»a into regular Ll&fr numbers (see aiscussion of "CALL -1 on page 37>« 

Curtain aavtjopments in hardware aoJif ications for the PDP/tti 



are opting the way for several desirable features in MACLISP, A 
haroware paging scheme will allow Jobs in the ITS system to overlap 
core areas with other Jobs; thus a pure-procoaure, or re-entrant, 
implementation of the basic MACLISP system oecoi&es tausible so that 
many active LISP Jobs may be initiated with each one requiring only as 
much core as is neeaea for its own private storage araas. In 
addition, it will be much more practical to linplment a run-time 
linking relocator for the purpose of loacing «I JAb-asse^bled 
subroutines into an alreaoy running LISP Job (a relocating loader 
could be trivially implemented now, but the linking phase, for global 
symbolic references, depenas on ready access to the job's symbol 
tablei this is somewhat cumbersome In the current implementation of 
ITS, but with the proposed paging scheme, a job which neeas to access 
its symbol table coulo attach it simply oy adding to its legal page 
allotment those pages of its symbol table*) i\e are planning new ways 
to store binary programs, both those loaaed by LAP and those loaoed by 
tne yet-to-be-implemented linking ralocater, so that the whole of 
oinary program space may be dynamically relocated at will. The next 
step, then, is to re-work the representation of atoms so that all 
storage areas may be dynamically expanded ana/or relocated; tne 
garbage collector will then be able, as the execution of the Job 
progresses, to re-allocate the amount of core assigned to any given 
storaage area. 

the current representation of atoms has lea to the problem 
aiscussed at the top of page 10, ano this problem must be averted in 
order to realize the dynamic re-allocator. One way of solving the 



problem is the creation of a separate space for the storuage of aco :,, 
but apart from this problem, experience has shown the ousirabi 1 1 Ly of 
an "atom header" space on other grounus, Th* VALUE, PHArtiij &nti 
function properties of an atom are generally of paramount ioport&nce - 
the Jiore rapioly they nay be retrieveo f tha better, Our current 
thinking on this matter calls for a space of atom h&aatirs ContfljMi 
for each atom, immeaiately accessible pointers to the vALbt, P \ttfc, 
and function (if any) properties, with aoditional bits for garbage 
collector usage; and for a separate space for p[\Aiic storage, Ms woulct 
expect a speed-up of a factor of two in the interpretation of 
code, and a small economy (perhaps 15* to 3&%) in the amount ol rjo^ory 
occuplec by atoms. The proliferation of separate storeage spaces 
not so bad as it might seem at first, since one of the u It illicit" 
benefits is the dynamic re-allocator - the user would be 1 
conscious than ever of the separation of memory. 

The problem referred to above may be circumvented by another 
application of the paging concept! allocation is fixeo, but each sparri: 
is made to be very, very larga. A LISP Job would utilize th«* full 
eighteen bits of the address space, but only those pages whlen I«uve 
been referenceu are actually held in memory. The major drawback to 
this plan is that our hardware modification plans do not provide for a 
page-on-aemand Interrupt; but at any rate t this circumspection Is at 
best a postponement of the real problem* 

Doae discussion is also taking place on the matter of a 
programmable ronaat specification for number print-out; on the 
possioie application in LISP of the "local - global" distinction FtwncJ 



in the block structure of ALGOL; ana on a liiora versatile (/u chuattbl 
aturccure Isuch as that of LISP l.o at the Stanford Artlllcl&l 
intelligence Laboratory,) 



* 
APPENDIX A 



Preview of Global Variables and Table of Control Characters 

NOUUO, NOCHK, NORET, BAKGAG, GCTWA, "NCPOlNT, "RSETall set 
accessible switches, namely their own special value cells. Thus (NOCHK 5) 
accomplishes the sme as (SETO NOCHK 5), 

There are a number of global variables critically pertinent to 
system operation - a brief catalog follows; 

ATOH VA LUE OR MEANING 

-™ • « 

BASE Radix to be used when printing out fixed point numbers* 

UBed by PRINT. 

BPOfiG When the system Is initially loaded, all the memory from 

SPEND BP0R5 up to the top of the core allotment is available as a 
kind of amorphous storage (not part of free storage or fulJ 
word space. Subroutines loaded by LAP are generally stored in the 
lower end of the space and Arrays are dynamically stored at the 
higher end, BPOfiG Is adjusted by LAP to Indicate the lowesr 
currently available cell of this space, and BPEND is updated 
by the array handler and garbage collector to indicate the 
highest currently available cell. 

CHRCT Number of character spaces remaining In the current output line. 

PRINT enforces a maximum output line length of LINEL (q.v.), and 
when CHFCT reaches zero, o carriage return Is emitted and CHRCT 
reset to LINEL. 

DISLIST One means of displaying information on the 340 display scope Is 
by the creation ot "display arrays" - each such array is a 



sequence of Instructions to the 340 (see Manual for usage), 
Dislist Is a list at the special array ceils of those displays 
that one want active, in time sharing LISP the display is not a 
actual iy carried out unless thefF swl ten is on (q.v.) . 

ERRLIST When at non-ERRSET error Is detected, control passes To an 

Initialization routine, just before re-entering the top level main 
loop. Average other things mapc QEVAL; ERRLIST] Is performed, thus 
allowing the user to add his own two cents to the error receiving 
process* 

IBASE Radix to be used by READ when converting a number-like string on 

Input. Hay bo any value from 1 to 36. , except that any number-like 
string having non-decimal digit must begin with either +" or -". 
EXAMPLES: 

If XBASE is B, then "4?" is ratf as 39. 
If I8ASE Is 12. , then "14" Is read as 16, 
If IBASE is 16., then "+1A" Is read as 27. 

LINEL The line length lor PRINT to use. After LINEL characters have 
been outputted, a carriage-return line-feed Is automatical Iy 
inserted. When the job is started up, LINEL Is set to 72. for 
Jobs controlling teletype, and to 45. tor those controlling the 
idatanets. 

NIL NIL 

OBLIST A list of lists: each interior list (of atoms) Is called a 
bucket. Every atan read in by READ on READCH, or expllcllly 
INTEFN'd is put on the OBLIST. If there Is already an atom of the 
same pname on the OBLIST, then no new entry Is made to 0BLI5T, but 
Instead INTEFN returns a pointer to the already-existing atcm. 

TTY When Job Is started up, set to NIL If at teletype, to If at GE 



Datanet . 

Here "x" and "y" arc used as tDeta-cbaraccera. Typing!? ~ control x 

On a job console, or evaluating {IOC x) or (SSTATUS IOC x) 

sets the x switch to non-NIL. The x switch is merely the value 

of the atom Ix - up-arrow x -, except for G and X. Each switch, 

except for A,G, and X has a corresponding control character to 

turn It off (set to MEL), denoted by y. 
X Meaning of Switch Y 

A Available to user, not used by system, (none) 

B Enable line printer to receive PRINT output, E 

D Turn on output of garbage collector r 

statistics (one set produced at each 

col lection) 
F Enable displaying Iron the display arrays Y 

on DISLIST. 
G Unconditional qult # not caught by ERREST, {none) 

N In time sharing, turn on the DIS devices to Y 

receive PRINT output. (Physically, the OIS 

device Is the same as the 340 display, and 

one cannot use them simultaneously). 
P Seize the Ca I cemp plotter facility. U 

Q Let READ receive its Input from the S 

currently selected Input file, rether -than 

the job console. 
R Enable the currently open output file to T 

receive PRINT output. 
W Oisenable the job console from receiving V 

PRINT output, 
X Quit, acts very much like an Internal error. (none) 



APPENDIX e 
Same Allocator Goodies 

When a IISP job is started up under time sharing, the system 
first interrogates the user as to the allocation of memory for the various 

storage areas used. The system types: 

LISP 105 
ALLCC? 

If the user then types "N" for "no" certain standard options are 
taken; if he types ■ J"' for "yes" the system then prints out, line by 
line, the standard options, pausing at the end of each line for the user's 
response. 

CORE = 22 
FXS = 400 
FLS « 400 
FEGPOL = 777 
5PECP = 777 
PXDL = 7 
FXDL = 7 

By typing a space or carriage return, the user accepts the standard 
option; by typing a number, he specifies that allocation (a string of 
digits Is a number base eight; a string of digits followed by a 
decimal point is a number base ten): by typing an alt-mode all 



remaining standard options ere taken and the allocation phase completed; 
by typing a control-G the allocation phase is re-started. 

In the current system, CORE cannot be specified to be less than 
20 blocks (I6K words). Regardless ot the specification for FXS (FIXNUM space) 
remaining after allocation is divided as follows: 

31/32 to free storage and 1/32 added to the FX5 allocation. This Is partly 
motivated by the fact that PNAME strings are stored In FXS. FLS Is FLONUM space, 
regular and special PDL's ore obvious, and the two number PDL r s will be relevant 
only tor functions compiled by the soon-to-be seen fast arithmetic compiler. 

Additional core may be grabbed by the system when more binary program space 
Is needed. 



APPENDIX C - STATUS and SSTATDS 

The FSUBR's STATUS and SSTATUS arc implemented Co aid in 
querying the state of the LISP eye t cm, and in setting some of its 
conditions. The first item in the argiiat is always an atom which 
tells what kind of query, or command, is wanted; but some of the other 
items may be EVAL'ed, Just as with the FSUBR "ARRAY"- A dispatching is 
done on the first five characters of the PSAME of the first item, so 
that if atoms like CORE and NOUUO are REMOB'od, the functions of STATUS 
and SSTATUS may still be properly performed- In fact, the main purpose 
of the function EXCISE is to reclaim from freestorage all those atoms 
with SUBR properties whoae functions have been subsumed by the STATUS 
series. In the tables below, the araall letters x, y t fl» m, as weLl as 
"dev" and "usr" are used as metavariables ranging over LISP atoms. "frag" 
is used for representing a list fragment* 



flEftlifit 
(CHTRAN n) 

(CORE) 
(CRUNIT) 

(DATE) 

(DAYTIME) 
(FREE y) 

(CCTWA) 



(IOC x) 



meaning » or value 

The character translation value in the nth entry 
of the READ translation table. 

Number of blocks of core occupied by the job. 

A 2-list of the most recently referenced device 
and sname. Updated by UREAD, UWRITB, and SSTATUS 

A 3-list with year, month, and day number. E.g., 
on Mar 20, 1970, this would be (70. 3. 20.) 

A 3-list with hours, minutes, and seconds of the day, 

Amount of space available in the y space. Currently 
y can be EPS for binary program space, FS for 
freestorage, FXS for fixnum sapce, FLS for flonuros. 

The GCTWA feature (see page 9 of Progress Report) 
consists of two switches - one forcing TWA removal 
on every garbage collection, and one forcing \ 
removal only on the next occurring collection. 



"every" ia off 



neither switch is on 

1 "next" switch is set, 
10, 11 "every". switch is set. 

If x is a character with a control action listed 
at the end of appendix A, the this gives the 
state of the x switch. E.g., (STATUS IOC B) 
tells whether the line printer is selected. 



(MACRO x) 



(RUNTIME) 
(SYtfTAX n) 

(TIME) 
(TOPLEVEL) 

(TTY) 
(UREAD) 

(UWRITE) 
(+) 



(*> 



MIL if x is not a READUACRO character (l 
Progress Report page 27); otherwise a number 
describing the type of macro. 

normal 

1 splicing 

10 delayed 

11 delayed and splicing 

same as calling the function RUNTIME 

The bitwise decomposition of this number tells 
the syntactic categories of the nth entry in 
the READ syntax table for characters. 

same ss calling function TIME 

K1L If standard; otherwise the form used in the 
top level function (see Progress Report page 10) 

NIL if job console is a teletype, if a CE datanet< 

NIL if no file currently open by UREAD; otherwise 
a list describing the open file. E.g., 
(FNAME1 PKAME2 dev usr) 

NIL If no device open by UWRITE for writing; 
otherwise a 2- list describing the currently open 
device in format similar to CRUNIT 

T if the super* decimal digit feature is enabled, 
NIL if not. This feature allows non-dcclmal digits 
to be used when reading in numbers: sny atom 
beginning with "+" or"-", except those single- 
character atoms themselves, will be interpreted 
as a number base IBASB. "A" is used as the tenth 
digit, "B" the eleventh, etc. 

If x is smong N0UU0 NORET *N0P0INT NOCRK 

*RSET BAKGAG, returns the value of the associated 

switch* 



arttllat for SSTATUS 

(CHTRAN a m> 
(CORE n) 

(CRUNIT dev) 
(CRUNIT dev usr) 
(FREE BPS n) 



m*»nlntt. or action 

Sots nth character translation to m. 

Requests the time-sharing system to set the Job 
core allotment to n blocks 

Updates the "current I/O unit" to be device dov 

As above, but also changes sname to usr* 

Will insure that there are at least n words 
available In binary program space. Will increase 
job core allotment if nocessary 



(IOC x) 
(MACRO x y) 



(MACRO x y S) 

(MACRO xyD) 
(MACRO x y S D) 
(SYNTAX n ra) 
(TOPLEVEL x) 

(UREAD frag) 
(UWRITE frag) 

(+ y) 
(x y) 



same as EVAL'lng "(IOC x)" 

Sett x to be « READMACRQ character of regular 
type with associated function to be the value of y< 
E.g., (S5WTOS MACRO /' (QUOTE (LAMBDA NIL 
(LIST (QUOTE QUOTE) (READ))))) 

splicing type (see Progress Report page 27) 

delayed type 

splicing and delayed type 

Seta nth entry in READ syntax table to ra. 

Sets the toplevel form to the value of x. (see 
Progress Report page 10) 

same *« EVAL'ing "(UREAD frag)" 

same as EVAL'ing "(UVRITE frag)" 

Sets the state of the super-decimal digit feature 
to the value of y. see above under STATUS 

If x is among NOUUO HORET *ttOPOINT KOCItK *RSET 
BAKGAG, sets the state of the x switch to 
the value of y. 



APPENDIX D 
Soira About Trace and Break 

The FSU6R BREAK Is used much like a break point in DDT. EVAL'Ing 
(BREAK I dent predicate) 

will do nothing If tho value of "predicate" '5 NIL, otherwise will prTnt 
out "I dent" for Identification and then enter a READ-EVAL-PRINT loop* Thus 
one may Inspect variable values and initiate certain remedial actions. 
Exiting from the break, which returns NIL ts done by typing the atom 
"$ P" ( alt-mode "P" space ). An alternate form Is available: 

(BREAK Ident predicate retval) 
tn which the value of "retval" Is returned, rather than NIL. By using the EDIT 
feature. It Is very convenient to insert and delete such "breakpoints" In 
EXPR and FEXPR code. 

TRACE Is a FEXPR generally found on the File CCM;TRACE LISP, used to trace 
the flow of control of a program. A function which has been set for tracing 
will regurgitate a little note each time the function Is entered or exited. 
The basic format of the •message Is, for entry, 

(n ENTER FOO argllst) 
where n Is the recursion depth at this call to the function FOO, and argllst 1 5 
a list of the arguments for this call Cunless too Is a FEXPR or FSUBR, in 
which case argllstis directly the one argument - see Progress Report page 2], 
The base format open exiting Is 

(n EXIT too value) 
where volue Is the returned value of function Foo, 



The user, when setting up a trace* may request other values to be printed out 
along with these messages; for example. If (CDR L> and (PLUS BRORG LOC) were 
requested, a sample message might look like 

<fi ENTER LAPEVAL (|) & < On 35001) 

when L=(I0 I), BPORG • 34777, LOC = 2 and the argumont to LAPEVAL Is f. 
Similarly upon exiting one might see: 

(6 EXIT LAPEVAL 1 // (0 O 350(H) 

In addition, the user may request H) that only one, or perhaps neither, of 
"argllst" and "value" be printed out, 12) that calls to the trace-set 
function be"traced" only when e given predicate is true, and (3) that a 
conditional break point be placed as the first item of execution of the function. 

The syntax of a trace request Is very simple - evaluate "(TRACE ri r2 
rnl" where each ri Is either en eton too (meaning set up a trace for function 
foo with standard options) or a list Interpreted as follows: 

(foo c) Trace foo, showing both ?argllst n end "valu&" if c = 

BDTH; showing neither it C = NIL; showing only "erglist" 
If c * ARG; showing only "value" If c = VALUE 

(foo c si s2.»,sn) As above, but also show the values of si , s2,,,,sn, 

[foo COND pred e) As above for "(fee c) J 'but trace a cal I to foo 

only if rt pred" evaluates to non-Nil when too is entered. 
The atcm ARGLIST, where It occurs in pred, will have as 
value The arglist discussed above. 



(foo BREAK prod c) - As above for *{foo *)" bu+ 

insert a breakpoint with identil ication foo and 
conditional predicate pred, just after entry to foo. 

Combinations of these forms are permitted, such as foo CWD p1 
BREAK p2 c s4 s2) but one must not forget to Include c as 
part of each individual trace request. The standard option mentioned 
above Is Just "(foo BOThV\ 

A function set for tracing actually has Its function property altered - 
SUBR's an EXPR's are turned Into a new EXPR; FSlBR's and FEXPR5 ore turned 
Into a new FEXPR. This new function handles the administrative details o* 
tracing (and incidentally may Introduce quite an overhead In time), and 
epplys the original function ^o the arglist. One may reset functions to 
their original pre-trace definitions by evaluating 

(UNTRACE fool foo2 ... toon) 

EVAL'ing "(TRACE)" * wl 1 1 yield a list at all functlonsvcurrently being traced 
and EVALMng "(WTRACE)" will untrace all such functions. 

EXAWLES: 

1) To trace BUGLE whenever Its first argument is greater than 3D, 
and to trace all calls to HORN, Let us suppose that BLGLE Is 
defined as (DEFUN BUGLE <N X) <PR0G2 (SLEEP N) (HORN X))) 

then - 

(TRACE HORN (BUGLE CCWO (GREATERP N 30) BOTH)) 

wl 1 1 do the job, as *ol I as 



(TRACE HORN (BUGLE CCHD (GREA7ERP (CAR ARGLIST) 30) BOTH)) 

2) To trace CCFPROP, showing only the arglist, and breaking 
whenever a property Is about to be defined for GLAND: 

(TRACE (0EFPR0P BREAK (EQ (CAR AR3LIST) 'BLAND) ARGU 

3) To trace LAP, showing only the amount of binary program 
space 

(TRACE (LAP NIL (DIFFERENCE BPEND BPORG) ) ) 

One of the functions on the TRACE file Is "? M EVAL'ing *»)• will 
cause a printout of a short note about TRACE with a few exanple uses. Since 
this note takes up valuable space, it may be removed by EVAL'ing "(??)". 
Eva ring ?(R£WTRACE> M will rerove all the functions of TRACE, 



APPENDIX f 
Using Index and Grind 



PART t Introduction 



INDEX and INDEX1 are functions that permit the LISP programmer 
to more easily debug or interpret long, coup I icated LISP programs * 
Both functions operate on some file Indicated by the user producing new 
file with Information for each function defined by a DEFPROP or OEFUN: 

J. type (EXPR, FEXPR, MACRO) 

2, arguments 

3. free variables appearing 

4- free variables modified by SETQ 

5. functions In the file used In the definition 

6. functions in the file that use the function defined 

7. undefined functions or free variables used as function names 

Additionally, notes are made of any functions defined more than once 
and of any function already defined In the system. 

To use these functions, one need only perform the following 
Incantations; 

it Read In seme version of GRINDEF: 

(UREAD E GRIND COM) J «<\ (M**0 <3flS*0 ul^f Com} ^ 

fp C means type with COTTROL hey held down] 

2. Read in Index file: 

t UREAD INDEX LISP COM) 



3. Attack file: 

CINDEXI ftlenamor filename? device user) 
(UFILE filename 3 filename 4) 

The conmentary will then appear in a file bearing the names 
filename3 and filename 4 as selected by *h* user. 

It should be realized that the functions involved are still In 

i ■ 
development, and any bugs should be reported to Patrick Winston, 

WARNING: the programs assime all fixed point numbers ore decimal. 

Port I I Details 

Three free variables give the user sane control over what the 
program does, namely ALPHA, GRIND, and GOBBLE. Normally all cane set 
to T. If ALPHA Is set to NIL, the Information for the functions appears 
In thQ same order as do the functions In the file under investigation. If 
ALFHA Is set to T, the order is alphabetical. 

If GRIND Is set to T, function definitions ore added and are 
interleaved with function commentary. If GRIND Is set to NIL function 
definitions ore omitted. 

If GC68LE Is set to T, GRIND Is set to T autoptical ly and ell 
commentary appears Inside the scope of COMMENTS. The Idea Is to produce 
an indexed file that LISP can read and enjoy as If it were the original 
file. Material In the original tile that is not the form of a function 
definition also appears In the Indexed version according to the following 
rules: 

f. Anything appearing after the first function definition In the 



original file appears at the end of the Indexed file. 
2. Anything appearing before the first function definition In 

the original file appears at the beginning of the indexed 
file. This prevents misplacement of any loader code that may 
be present* 

With GOBBLE set to T, It Is believed that all material In the original 
file will be retained, even multiple definitions bearing the same name. 

itfUKX i is designed to parallel file conventions of G8I9D1 
returns the same sort of thing as Its value. That Is: 

(INDEX! fnf fn2 dev user) 
1 returns 

(UFILE fn 1 fn 2 dev user) 
IW>EX differs from INDEX* only in that the usually desired file 
naming is done automatically according to the following conventions: 

1. If GOBBLE Is set to T, the indexed version has the s*ne 
names as the original file and replaces It, 

2. Otherwise, If the original file has the names tnl fn2, then 

the indexed file will have the names fnl INDEX. Naturally 
care should be taken to avoid Indexing e file with the names 
fnl INDEX, for the original file will be lost In this case 
and the Indexed file will not contain all of Its material * 

EVAL'ing "(REMGRIHD)" will remove those functions redd in from the 
GRIND FILE; "(REMINDEX)" will renaove those read in frocn the INDEX FILE. 



APPENDIX I 
US IMS LAP 

This section of this memo replaces ontiley A, I memo (52, 
PDP-6 LAP. 

INTRODUCTION 

Lap is a LISP FEXPR (or FSUBR when canpi led>*hich Is executed 
primarily for Its side effect — namely assembling a symbolic listing Into 
core as a machine language subroutine. As such* it is about the most 
convenient and rapid way for a tISP user to add machine language primitives 
to the LISP system, expeciaMy If the functioos In question are in a 
developmental stage and are reasonably small fe.g. f-500 instructions). 
Also, the LISP compiler currently gives Its result as a file of LAP code, 

which may then be loaded Into core by LAP. 

Virtually, any function definition, whether by DEFPROP, LABEL, or 
LAP, is an extension of LISP's primitives; and as In any actual programing 
language, the side-effects and global interactions are often of primary 
importance. Because of this, and because of the inherently broader range 
of machine Instructions and data formats, a function quite easily 
described and written In PCP-6 machine language may accomplish what Is 
only most painfully and artificial ly written In LISP, One must, then, 
consider the total amount of code In each language to accomplish a given task, 
the amount of conmentary necessary to clarify the Intent of the task given 
the program (In this sense, LISP code rotes very high — a major benefit of 
the confines of Lisp Is that a good program serves as its own ccmnent. 



and usually needs no further elucidation), and other considerations of 
programing convenience. 

Experience has shown that many such subroutines may be assembled 
by a small system* i.e. one such as the current LAP, without conditional 
assembly, macro, or sophisticated literal generation features- These 
latter three features are the major differences In language between LAP 
and MIDAS; the major operational differences ere H) LAP Is one-pass and 
MIDAS is two, (2) LAP uses the IISP READ function while MIDAS Is more 
efficient, and (3) LAP assembles directly Into the binary program space of the 
LISP system using It while MIDAS files Its assembly on a peripheral 
device (which must then be loaded by STINK or the ITS version of DDT). Thus 
one must consider the scope of his task in relation to the language desired 
and the operational ease preferred. 

Unfortunately neither LAP nor the system reported In A-l . memo No. 127 
solves the problem of loading and running arbitrary binary programs jointly 
with LISP, Something like a runtime primitive STINK Is needed for LISP, 
and such may have to wait for further development In the multiprogramming 
capabilities of the PDP-6 systems. 

FOPWT :> _AP ij-.»m;l 
A call to LAP Is even a little more non-standard than Indicated In the 
Introduction In that not all the arguments are Included In the S-expcesilon 
which ccmmences assembly — LAP repeatedly calls READ, operating on the 
S-expressIons read-In (from the current Input device and file), until a NIL 
is encountered, at which time assembly "S terminated. Only after successful 



termination of assembly Is BPORS updated and the correct flag tSt8R, 
FSUBR or LSUBR) inserted on the property list of the atcms which name 
the newly assembled functions. Thus a call to LAP would Icok like the 
seq uence . 

(LAP F00 SUBR) 
(DEFSYM A 1) 
(HLRZ A, (A)) : 
1KPJ P) 
NIL 
Insteadoof the following written In a hypothetical style after 7090 LAP 



(UP ((F00 SUBR 2) 

(HLRZ A* (A)) 

(POPJ p) 

((HLRZ . 5W*27.) 

(POPJ • 263*27.) 

(P - U) 

(A . 1))) 



The most serious drawback to the latter style is the strain placed on free 
storage, since the entire expression would have to be in core before 
evaluation could begin. 

Hence evaluation of (LAP neroe indicator) or (LAP name Indicator 
address update) begins a LAP assembly tor a function with name "name" of 
type "Indicator" (such as SUBR, FSUBR, or LSUBR) and with entry point 
the first location assembled into; if the second form is used* assembly 



begins In the core location "address" Instead of BPORG. Ordinarily at 
assembly termination, BPORG is set to the address following the last one 
assmbled into by UP/-bti+ It "update" Is NIL, BP0R3 Is undisturbed. 
LAP acts on the quantities It reads as follows: 



flJANITITV 
NIL 



stem 



(DEFSYM atari sexp 



IEWTRY name type) 
(ENTRY name) 



ACTICH 

Terminate assembly and return. Literal generated 

constants are assembled into core, symbol definitions 

frcm DEFSYM are flushed, and worthless atoms ore 

removed frcm the obi 1st* A carmon error Is to forget 

that carriage return and E-O-F are not atom break characters; 

NIL should be followed by a space. 

Assign "atom" an assembly symbol value equal to the 
address of the current assembly location; no additional 
assembly takes place* Thus one uses atons for symbolic 
location tags and under certain conditions these nemos ere 
entered In DDT's symbol table (see below). 



« . aton sexp) 

Assign "atom " an assembly symbol value equal to 

(EVAL sexp); no additional assembly takes place, and 

these nemes are not entered Into DDT's symbol table. 

Sets up "name h as a function of type "type" (default-samo as 

call to LAF*)and with entry point the current assembly location; 

no further assembly takes place. 



ICOMMEHT list-fragment) By a neat technique, no unnecessary atoms remain o» 

the obi 1st after assembly; however, during assembly, 
there must be enough full word space to hold print nemes 



(SYMBOLS t-or-nll) 



(BLOCK B) 
(ASCII * ex P> , 



(SIXBIT sexp) 



for all the atoms and to hold the numerical values 
of a few LISP numbers. 

NIL turns off and non-NIL turns on the LAP feature which 
passes along symbolic location names to the job symbol 
table; currently all symbols so entered are treated 
as global, but at sane time In the future this may be 
modified to permit flexible duplication of symbols In 
several programs. If the SYMBOLS pseudo*up appears anywhere 
In an assembly, then the names of functions thus defined 
will be transmitted to DDT. NOTE WELL: Although LISP 
atons may be conposed from upwards of 60 characters, 
those used as tags which are entered In the symbol table 
should Include only legal MIOAS characters, and 
only the first six characters of the atcm's PNAME are 
relevant to this feature. 

A block of n words is assembled, each containing a 2ero. 

The s-expresslon sexp Is £*PLGDEC 1 d and tho resulting list 
of 7-bit characters Is assembled, 5/word, in successive 
words. 

Same as for ASCII, except that the 6-blt form of the 
character Is used, 6/word. 



(x) 



Ist-gragment* x (which Is not one of tha above itew) 

is evaluated by LAPEVAL and the numerical result stored 
in the current assembly location, which Is then advanced 



by one. For the meaning of LAPEVAL, see the next section or 
assembly constituents. "I Ist-f ragment" Is Ignored and 
may serve as ccmmenttry (see note above for Comment). 

<x y) 

(x y ; list-fragment) Same as Immediately above, but (L5H (LAPEVAL y) 23.) 

Is added Into the stored result. 

(x y z ; list fragment) Same as irmedlately above, but (BCOLE I (LAPEVEL z) 

777777) Is added Into the stored result. Forward 
reference symbols may appear only in the z field; that is, 
If a symbol Is used before It is defined, it must be 
■ used only In the address part of the Instruction, 

(xy Z v) 

(x y z w ; list fragment) Same as Irnnedlately above, but the numerical value 

of (LAPEVAL w) , treated as a 36-bit quantity. Is swapped 
left-half f of right and then added Into the stored result. 
LAP Initially checks whether or rat the atom I Is a member of the list \f 
forming the assembly word, and If so sets the Indirect bit (bit 13) and deletes 
the 9 from the Indicated assembly; thus an 9 does not count as one of x, y, z, 
or w. 

One notices that there Is a strong similarity between LAP format end HIOAS 
format, an essential difference being that LAP processes assembly quantities "In orde 
let-to-right, to determine which Is the AC field, which the address field, and 
which the Index field. One must remember that the LISP road routine Imposes a 
certain dissimilarity in text for the two assemblers, since "space", "ccmma", 
"left paren", and "right paren" are the only break characters for atom names. 



Hence spaces are necessary on both sides of a semi-colon or at-sign 
when they are used as described above/ and the AC field may not be chitted 
in instructions like (JRST ADDRESS). The Index field need not be 
enclosed In parentheses as in MIDAS, but in general there Is no harm In 
doing so (see "anyother list" under assembly constituents), 

NORMAL WD ERROR RETURNS 



Normally, after terminating assembly, LAP returns a list containing 
the current value of BPORG, and The names of the subroutines just assembled 
(there may be more than one entrV for the routine assembled, the principle entry Is 
declared In the call to LAP and others may be declared by means of the 
pseudo-operation ENTRY). If, after assembly* sane referenced symbols 
remain undefined, the message "UNC€F SYMBOLS", followed by the offending 
atcms, will be printed out. If there were any mutl iple-def ined symbols, 
lr AMBIG SYMBOLS'* Is printed along with a list of the offenders. One 
particular disaster caught by LAP Is Indicated by the message rt not enough core'*. 

Since LAP uses so many free variables (and for several other reasons), 
one should allow a call to LAP to exit by Itself rather than stopping It 
with fi* or some other ruse. 

ASSEMBLY CONSTITUENTS 



Each of the parts of an assembly word (x, y # z, or w) Is evaluated 
by LAPEVAL, in the context of the assembly. The assembly quantities whose 
CAR Is among CCFSYM, EVAL, CO-WENT, and SYMBOLS, may be termed 
pseudo-ops In that they do not give rise to an assembly word but merely 



give directions to the assembler, t and ; are treated specially by LAP 
and are not considered to be assembly constituents. 

QUANTITY 



niiTiber 



NIL 

* 

stem 



QUOTE sexp) 



(SPECIAL at cm) 



(FUNCTION aton) 



VALUE 

a 
Fixed-point numbers always evaluate to themselves. 

Floating-point numbers in an address fiefd may produce 

Randan Results, 

Same as (QUOTE NIL). 

The address of the current fissembly location. Same as 

in MIDAS. 

Except for 8, ;, *, and NIL, all stems evaluate to 

Their assembly symbol value; i.e. (GET (QUOTE atc*n> 

(QUOTE SYMfl, 

(MAKNUM (QUOTE sexp) (QUOTE ^IXHUM) . For ex*nple, 

(HOVEI^ (QUOTE (SMALL LIST))) assembles into an 

Instruction which moves a pointer to the list (SMALL 

LIST) into accumulator i. 

Provides a pointer to the value cell of "atom 1 '^ thus 

(MOVE 1, (SPECIAL FOOD moves the value of FOO Into 1 

instead of a pointer to FOO, as would happen if 

(QUOTE FOO) were used. In addition 

(MOVE 1 f (SPECIAL BAR)) 

(MOVEM 1, (SPECIAL FOO)) 
acconplishes In a SUBR what (SETQ FOO BAR) does In an 
EXPR, 
Essentially the same as (QUOTE aton), but Is used to 



QUANTITY V ALUE 

emphasize that "atan" Is used as a function name (see section 
on UUO Instructions). 
(ASCI 1 sexp) Provides a 36-blt ascll representation of the first five 

characters frcm (EXPLODED sa *P> • 

(SIXMT sexp) as above, except sixblt representation, 

(% x y z w) Literal generation feature, like I x y f z (w)] In MIDAS. 

Assembles fc y 2 w) as described above and provides the 
address thereof. Similarly* the forms it x), i% x y), <% K y z> may 
be used. A literal constant Is restricted to the z-fleld 
(or address field) of a LAP instruction, but may appear 
nested to any finite depth. Example -r, (MOVE i t (Jfl.CJ) 

moves a machine floating point number into I, whereas 
(MOVE I A t (QUOTE 1.0)) moves a LISP number- 

SVMB3L DEFINITIONS 

LAP Is Initialized with a few basic symbol definitions needed By code 
generated from the compiler, such as P - f4, and proper addresses for NLMVAL, 
SPECBIND, UNBIND, FLOAT, etc. Not al J POP-6 op-codes are pre-defined, but If 
one of the missing ones Is used In LAP code, then LAP will obtain a correct value 
for It fron DDT, Temporary symbol definitions may be made by the user with 
the pseudo-op DEFSVM (see section on "Format of LAP usage). 

If there remain any undefined, referenced symbols of trte end of LAP 
assembly, then the DDT symbolteble Is Interrogated to try to find a definition. 



Thus one can write LAP code as If It were being assembled together with 
the LISP system. When passing along entries to the DOT symbol table, or when 
looking up a symbol In It, any character of the symbol not a tegal MIDAS syllable 
constituent Is converted to the character " ,*■ 

Four trap Instructions are provided to help link up compiled code with 
other functions, possibly in EXPR forms: CALL, CALLF, JCALL, JCALLF, The 
first two simulate a transfer like PUSHJ P, F00; while the latter two simulate a transfer 
like JRST F00. The accumulator field of an instruction with op-code In this 
sense tells which of the three argument conventions has been followed; In 
(CALL n (FUNCTION f)> If 0^n^5 , then the EXPR-SUBR convention is used, 

with the n arguments located In accumulators < to n; If n ■ 17, then the 
FEXPR-F5LBR convention Is used, with the one argument located in occi/nulator i; 
If n ■ 16 then the LSUBR convention Is used, which assumes that accumulator 
6 contains the negative of the number of arguments, which are stacked up on 
the regular PDL last on top, and the return address is on the PDL before all the 
arguments. Under favorable conditions, when CALL'ing a SUBR, LSUBR, or FSUBR, 
no further Interfacing need be done and the CALL instruction is actually 
replaced In core with a PUSHJ or JRST, The ops CALLF and JCALLF, however, are 
never replaced. Similarly, It NOUUO Is non-NIL, the Instruction-modify phase Is 
Inhibited. 

AVAILABILITY 



The COM device holds files E LAP and C LAP. E LAP Is an EXPR version 

of the functions necessary to make LAP work, and C LAP Is a compiled version of 

the same. If one plans to load in a file with calls to LAP on It, then he should 

first load In one of these two LAP files* In the future, this might Be done 



Autcmetlcel ly, but right now the user must explicitly take core of loading 
In needed auxllllary functions, 

Evallng "(REMtAP)" will remove as much of LAP as possible, and the 
garbage collector will be able to reclaim Its space, 

AN EXAMPLE 



(UP DONTFOOP SUBR) 

(MOVEI 2 (QUOTK PNAME)) 
(ENTRY DONTFOO) 

(PUSH P 1) 

(CALL 2 (FUNCTION GET)) 

(HLRZ 10 1; THIS COULD ALSO BE (HLRZ I f I)) 

(HOVE 1 (1) ; GETS FIRST WORD) 

(CAMN 1 (X ASCII FOO)) 

(JRST POPAJ) 

(POP P 1) 

(JCALL 1 (FUNCTION PRINT)) 
NIL 



KLMERICAL ROUTINES EHCO OED IN LAP 

On one of the topes of Jon L. White, there Is a file LAP routines for 
the functions SIN, COS, ATAN Care tangent}, SQRT, LOG [Natural iog] p and EXP 
Cbase eD. Also there Is a file 8 IAS which Is a general matrix inverter and 
simultaneous linear equation solver. Calling 



(IAS A NEW N H) 



performs gaussian row reduction on the first N rows of the array A (and In 
fact operates on only the first M columns); so that If M<N then the N + I st 

through the Mth columns of the output array contain the solutions to tho 
implicit M-N+l systems of NxN simultaneous linear equations, while the first 



N columns contain the Inverse matrix 01 



A n" 



nn 



f NEW is n" 1 then a new 



array of size MxM Is declared and the answers are stored in It leaving the 
input array A alone; If NEW Is 'NIL 1 then the output array is stored directly 
over the Input array and no new array declarations are done. 

Currently, maximization of* pivotal elements is not done; thus IA5 will 
give wrong answers on certain numerical ly Ill-conditioned matrices even 
though they be non-singular. It is possible to remedy this problem, at some 
expense. If necessary, IAS also uses a portion of binary program space for 
temporary storage and may give an error message if not enough space is availabl 



APPENDIX J 
MOBY I/O 

NVSET Used to set certain prograimtable conditions for the now 

video processor The arguments are in order: 

Filter - three bits (0 - 7) to designate the presence 
or absence of the color filters over the lens. 

confidence - should be 0,1*2, or 3* Determines the 
speed and accuracy of the video processor, being 
the slowest but most accurate. 

resolution - that number of equally-spaced lines over 
the field of view - maximum of 40000. (Actually, the 
video pocessor always dissects the scene onto a 20000x20000 
grid. This merely provides a scale factor for the 
arguments to NVID and NVFIX). For many reasons 4000 
to 40000 1 5 an extraordinarily good range for this 
argunent . 

dim - should be In the range 0-47 inclusive. Selects 
one of sixteen dim cut off levels. See a hacker for more 
elucidation. 

xyz -Zero means the video processor receives Its Input 
from the new ITT vldlsctor (TVC); non-zero means the signal 
comes from the oid ITT vidlsector (TVB). 



HVLC 



NVF1X 



NIL may bo used for any of the above arguments. In which case 
the specified condition Is not changed. Initially all conditions 
are except resolution, which Is 20000. 

Reads the new video processor and returns a floating-point 
number (with an information content of ten bits) which is an Inverse 
linear measure of the light intensity at the selected vidisector 
point, (The manual switch located on the video processor should 
be In the "LIN" position when NVID is used. Ltes NVFIX when It is in 
the "LOG" position). The two arguments are respectively abscissa and 
ordinate values for the Image dissector, and must be fixed-point. 
Returns -f.O for the dim or dark cutoff condition. 

As above for NVID, but Is essentially a logrlthmlc measure of 
intensity, scaled between i and 1777, Returns a fixed point 
number, (NVFIX and NVID will differ at most In the three least 
significant bits depending on the state of the "LIN-LOG" switch. 
See NVID) . Return for the dim or dark cutoff condition. 
NVFIX can also read In block mode: nv * '* Carrayname; nQ will 
assume, for 0sl<n l that arrayname Q2i] has an x-value and 
errayneme r^Wi-) has a y-value , and will replace the latter by 

v ^ lx Cx;yD. LISP numbers are used both caning and going, but 
generally small numbers will suffice. 

One con write a small LAP routine to fill the first n words of 
sane array for Input to NVFfX, If the points to be read are related 



in some reasonable fashion- In each word the left-halt holds 

the x -value, the right-half the y-va\u&. and the return value Is 

In the right-half, 

NVSLT Is used to set the conditions for NVFIXregardless of which 

node is used. An error occurs If the first argument to NVFIX Is neither 

an array nor a number. 

MPX To use the A/D and D/A converters, open up the facility with a 

(MPX ad da) 

Where ad specifies the mode of operations for the A/D and da tor 
the D/A converter. Legal ranges for ad and da ore: 

NIL - leave status alone 

— close out device 

1 -• open device in norma) (image) mode 

2 - open device in fast PScU) rtode 

See the ITS reference manual for more Information about this device. 

1MPX Reads the Input multiplexor, A/D, channel spoclfled by Its 

argument (a number ^ 77). 

CMPX First argument Is a channel number, and second Is a value to be 

outputted on the D/A output multiplexor, 

PLOT This is just the Plot function of Mike Speclner's interpretative 

plotter. Will require some tutoring before the user will know 
what he is doing. 



PLOTUST If first argument Is a list constructed liko a DISLIST, then 
It will be plotted on the calcomp plotter just as It would be 
displayed on the CRT 340. If optional second argument Is given, 
then a point will not be plotted as a dot, but rather as the 
first character of the PNAME of the second argument, Example; 
to have points plot out as asterisks: 
(PLOTIST OISLIST (QUOTE *>) 

PLOTTEXT PHIKC'fi its argument at wherever the plotter head finds 
Itself; sample uso; 

IPLOTTEXT (QUOTE Y-AXIS)) 



LPEN Has no arguments. Reads the 340 light pen scanner and returns 

(count . (x . y)) where count Is the number of times the light 
pen was seen (since the last call to LPEN or since the progr^n's 
beginning) and x and y are the overage abscissa end ordinate values 
of the light pen when seen. 



APPENDIX K 
PIC - PAC STUFF 

In an effort to utilize taped vldlsector scenes, several functions 
for performing the necessary I/O have been added to LISP. (See PICARRY, 
REACPIC and WRITEPIC). There are obvious advantages for the 
debugging prograffit>er to having standard, we 1 1 -described scenes 
available, as It were, through a simulated vldlsctor. Before using 
the routines, however, one must beccme aware of the image conventions 
of PicPac. Images (or scenes) are considered to be rectangular 
sub-portions of a u inlt square, and hence image co-ordinates 
ore floating-point numbers between 0.0 and 4,0. This facilitates 
the mapping of an Image space onto various I/O devices. Needless to say, 
seme discretized approximation to the Image is what Is actually 
stored on tape, so that the co-ordinates mentioned In READPIC really refer 
to the nearest lattice point in the image space recorded on tape. 
Once an array has been read in, however, there Is no further use of 
image space co-ordinates except for the description produced 
by DESCR. Reference to the array is done as usual on ordinary 
LISP arrays. The PlcPac system will be maintained by Larry Krakauer, 
Root 819, 545 Technology Square. 

PICARRAY Declares an image array for use with PlcPac. Its use Is exactly the 
same as the function ARRAY: Its arguments are respectively: 

the array name 

NIL 

the x dimension (or number of rows> 

the y dimension (or ntmber of columns) 



The array elements are accessed as usual - (arrayname n m) ttvaluut|ng 
to the n,mth entry in the array. 

READPIC Reads into the array specified by the first orgumont (which must 

have been declared by PICARRAY), receiving doto tram tha device 
and file selected by the most rccenr UREAD. The second and third okih> 
specify !<w*er-left x- and y- co-ordinates respectively; the fourth 
argument Is a delta d such that adjacent entries in the array ar* 
filled by incrementing the Image co-ordinates by an amount d. 
(See PicPac for an elucidation of image space co-ordinates)* An 
alternative form is to specify separate deltas for the x and y direct [on&: 
(READPIC array lowx lowy d) or (READIC array Jo** towy dx dyK 
The coordinates of the upper -right point of the image area read In ere glvci 
by upx = low* + xdim*dx and upy = lowy + ydim^dy, where xdim and fdim 
ore the x-and-y dimensions respectively of "array"- All arguments 
except "array" are assumed to be floating, in accord with the PicPac 
convention; however fixed-point numbers may be used; it will be 
assumed that they refer to a 10000 by 10000 grid and they will be 
floated accordingly. If a section of the requested Input area, I.e. 
the rectangle from <lowx,lowy) to (upx^upy). Is not recorded on 
the input file, then READPIC prints an error comment and returns NIL; 
otherwise it returns The nana "array 1 '. 

WRITEPIC FSUBR 

(WRITEPIC array) writes out on the currently open output device 
the entire array specified by the argument (In binary Image mode). 
In general, WRITEPIC Is preceded by a UWRITE and followed by a UTILE, 



DE5CR Part of the PicPac package If there is an argument, 

its value Is assigned to be an array name and E€5CR (for "describe") 
produces a list of ten numbers, associated with the array: (xdirn ydim lowx 
lowy dx dy hash vd light data! where the last three numbers give 
Information about the vidiscetor used, the lighting, and the mode of 
the data. Numbers three through six are In floating point, and "hash" 
Is Irrelevant, xdfm and ydim are the x and y dimension (sec PiCARRAY). 
If there Is no argument given, the array described Is the one which 
the most recent call to READPIC read from. The array stored ot\ 
tape which serves as the data source for the cal I to REACPIC wl 1 1 In 
general have a description different from that of the array In core* 
(DESCR NIL) Is NIL so that (DESCR (READPIC arr lowx lowy delta)) 
produces either a description or NIL depending on whether or not the 
read was successful. (See READPIC). 

DE5CRX 5ame as C£5CR except that numbers three through six are converted to 
fixed point, assuming a grid of 10000 by fOOOO, 



APPENDIX X 

An attempt to update A, I • memo II6A with respect to 
items not wel l-discussed elsewhere. 

Two qiwck little goodies: (1) accumulator 43 Is not used by LISP 
anywhere, and may be ulltlzed to the programmer's pleasure; (2» when debugging, 
one often finds himself crawling around in COT to inspect +he ruins after a 
catastrophe, and It Is an annoyance to see COT type at you 54735 when you know 
that this is a pointer to some list - therefore, If the currently open cell in 
DOT points to an s-expression, typing"P.$X'* will cause 00T to enter a special 
part of LISP which will print out this quantity In the usual LISP style. 
[Actually "P." Is a symbol in the symbol table equivalent to H FUSHJ P, PSW , 
so symbols must be loaded for this to work*] 

The remainder of this appendix Is In the mosaic style of A. I. memo 116A, 

and there are no apologies for Its terseness. 

ASSX Uses EQUAL 

ASSQ Uses E<? 

Ccmpi ler 

One may load a LISP conpl ler by typing at DOT "COMPLR H". One may 
still use the previous method of compiling a file, but 5 more convenient 

may now exists. When the compiler is ready It will type out 

"LISP COMPILER 77 n , If the user then types "tMAKLAPI" he may then type 

a task specification exactly as with MIDAS, TJ6 and COPY, namely 

-^target file^-^left arrows ^source f 1 1e><carriage return?- to specify 

that the source file Is to be compiled and the resulting LAP code 



stored away on the target file, Example: 
(MAKLAP) 

FOO 'TGMP*-FOO BAR ® 
or IMAKLAP) 

FOO BAR <3> 

In the latter case, the target file will be FOO LAP. The same 
options exist as In MIDAS for default on specifying device and 
s name. 

Current I/O Device 

LISP has bookkeeping room for one Input file, opened by DREAD, 
and one ourput file, opened by UWRITE, There is an internal 
register herein called current device name, that remembers which 
auxilliary storage device contains the newly opened file, and this 
register may be changed by optional arguments to UREAD, UWRITE end 
UKILL, An open read file is closed by reading an E-O-F character, 
and an open write file Is closed by executing a UFILE <q,v,) 

OISAO No longer keeps the counters DISCH or DISLP; but has been 

extended to work well with nearly all the ASCIT characters, including 
carriage return, IVne feed, and lower case* 

Display The time-sharing system provides a means for "printing"" on the 

CRT 390 scope display .The N switch will send PRINT output to It. 
If one builds up hfs own display arrays, either with DI5AD # or 
by sane display generating routines, then each array A to be part 
of the picture must be put on DISLAST as follows: 

(SETQ DISLIST <C0NS (GET (QUOTE A) (QUOTE ARRAY)) 

DI5LIST1) 



EXCISE 



PIXP 



FIQATP 



ICG 



MACCW> 



* 



MAX 



V,N 



typing f? starts the display running iron DISLIST. 

An EXPR which REMOB's many system atcms which the average 
user finds of little value- Thus about 500-1000 words of free 
storage may be gained. Almost all the functions so lost may be 
duplicated with STATUS or SSTATUS, Atcms remob'ed are 
REM0B RANDCW GCTWA N0UU0 N0CHK RE*ARRAY VALRET CRUUIT 
tD F1XP FL0ATP EXAMINE DEPOSIT TIME NORET SLEEP RUNTINE 
LISTEN LPEN DISAD DISINI tF and all functions mentioned in 
appendices J and K. 

A SUBR, NON-NIL only for fixed-point numbers, 

A SUBR, NON-NIL only for Floating-point numbers, 

has been changed to a more useful form. Essentially operates 
as If It were defined 

(CCFUN I0G FEXPR (L) 

(PROG ( tQ tR t* »B *NJ 

(COJD ((CAR L) (EVAL (LIST (QUOTE IOC) (CAR L>)>>) 

(EVAL CADR L))))- 

In time sharing, passes control to DDT rather than the non-tlme- 
sharlng "MCOF". If Job Is disowned, then a logout Is porformed. 
Has argument which Is given as a VALRET string to DDT. E.G. 

(MACWP (QUOTE TECOSJ$/fx/.LISP$J)) 

An LSUBR which returns the maximumtnunerical )of Its argunents, 
using contagious floating arithmetic. Thus (MAX Is 4,0 7) is 10.0 

As for MAX, but returns minimum. 



Numbers LISP numbers, slored in special areas, ore represented simply 

by a pointer into that area. Thus there is a FIXNUM space, end 
a FLONUM space, as well as Binary program space, and free 
storage space tin which lists are stored). 

RUNTIfC For time-sharing LISP, returns the number of microseconds of CPU 
time used by the current Job, as a fixed-point LISP number, 
accurate to about 50 microseconds. 

SLEEP (SLEEP n) causes the program to stop temporarily and take a 

nap for n thirtieths of a second. SLEEP is a SUBR, 

TIME For time-sharing LISP, returns the time counter frcm the TS system, 

as a fixed point LISP number. Currently, this is the number of 
thirtieths of a second that the system has been running. Note 
that in TS LISP there Is no setttme, (Using STATUS, the user 
may reed a reel time clock to obtain the time o* day. See 
Appendix C under "DAYTIME") 



UKILL An FSUBR (UKILL n> or (UKILL OTn) still flaps tape n. But any 

other syntax on the arglist will be interpreted as a file 
specification (like those with UREAD which It tries to delete, e.g 
(UKILL LOST FILE OSK PHW) will delete seme worthless file on the 
DSK device with sname PHW. 

VALRET PRlWC's Its one argument as a valret string to DDT. Logs out 

If Job Is disowned. 



